Reinventing the wheel
March 29, 2024, 09:24:21 AM *
Welcome, Guest. Please login or register.
Did you miss your activation email?

Login with username, password and session length
News:
 
   Home   Help Members Tags Login Register  
Pages: 1 ... 5 6 [7] 8 9 10
 61 
 on: May 14, 2009, 05:54:14 AM 
Started by rionroc - Last post by rionroc
For now we are zombies, and Delphi is dead

But read this article:
http://edn.embarcadero.com/article/39174

"
But you guys have about ten bazillion lines of code out there that you want to continue to work. We totally get that. So, we are working to create a “new Delphi” and a new compiler architecture, to keep your existing code working, to emit 64-bit binaries using both Delphi and C++Builder, and maybe a few other kind of binaries while we are at it. And it all has to be done right so that it all works for you.

And you know what? That is exactly what we plan to do.
"

Cheers!
Were all excited!

 62 
 on: May 13, 2009, 08:00:41 PM 
Started by rionroc - Last post by rionroc
http://www.softpedia.com/progMoreBy/Publisher-Ciuly-9388.html Cheesy

Amazing...

 63 
 on: May 13, 2009, 07:11:57 PM 
Started by rionroc - Last post by rionroc
How to change from mouseover to mousedown using the infotip?
Or
How to put ActiveX infoTip to Form?

Here are sample code, that I applied to mix, but I'm lost.
http://www.delphi3000.com/articles/article_950.asp?SK=
http://delphi.about.com/library/weekly/aa121404b.htm


This is also the code that I updated, but I failed to fix it.
====================================
//Edited by me, but failed.
unit Unit1;
// Project to create a very basic infotip shell extension using IQueryInfo and IPersistFile
// By: Greg Kempe (greg@kempe.net) -- 27 April 2000
// Article available at: http://www.delphi3000.com/
interface
 
uses
  ComObj, ShlObj, ActiveX, Windows;
 
const
  // GUID for our object
  CLSID_InfoTip : TGUID = '{088FB88B-09E0-4a8d-BF9A-EDCD8041EA1E}';
  xCLSID_InfoTip : TGUID = '{098FB88B-09E0-5a8d-BF9A-DDCD8041EA1F}';
 
type
  itip = interface
  ['{098FB88B-09E0-5a8d-BF9A-DDCD8041EA1F}']
  function dfname:string; stdcall;
  end;
 
type
titip = class(TComobject, itip)
  private
     dinfo:string;
  protected
  function dfname:string; stdcall;
  end;
 
type
  TInfoTip = class(TComObject, IQueryInfo, IPersistFile)
  private
    fName : string;
  protected
    { IQueryInfo }
    function GetInfoTip(dwFlags: DWORD; var ppwszTip: PWideChar): HResult; stdcall;
    function GetInfoFlags(out pdwFlags: DWORD): HResult; stdcall;
 
    { IPersistFile }
    function IsDirty: HResult; stdcall;
    function Load(pszFileName: POleStr; dwMode: Longint): HResult; stdcall;
    function Save(pszFileName: POleStr; fRemember: BOOL): HResult; stdcall;
    function SaveCompleted(pszFileName: POleStr): HResult; stdcall;
    function GetCurFile(out pszFileName: POleStr): HResult; stdcall;
    function GetClassID(out classID: TCLSID): HResult; stdcall;
  end;
 
 
implementation
 
uses ComServ;
 
var finfo:string;
 
{ TInfoTip }
 
function TInfoTip.GetClassID(out classID: TCLSID): HResult;
begin
  Result := E_NOTIMPL;
end;
 
function TInfoTip.GetCurFile(out pszFileName: POleStr): HResult; export;
begin
  //Result := E_NOTIMPL;
  WideCharToStrVar(pszFileName, finfo);
  Result := S_OK;
end;
 
function TInfoTip.GetInfoFlags(out pdwFlags: DWORD): HResult;
begin
  Result := E_NOTIMPL;
end;
 
function TInfoTip.GetInfoTip(dwFlags: DWORD; var ppwszTip: PWideChar): HResult;
begin
  // show a very basic infotip
  ppwszTip := StringToOleStr('The infotip3 for: ' + #13 + fName);
  finfo:=fName;
  Result := S_OK;
end;
 
function TInfoTip.IsDirty: HResult;
begin
  Result := E_NOTIMPL;
end;
 
function TInfoTip.Load(pszFileName: POleStr; dwMode: Integer): HResult;
begin
  // save the filename for later use
  WideCharToStrVar(pszFileName, fName);
  WideCharToStrVar(pszFileName, finfo);
  Result := S_OK;
end;
 
function TInfoTip.Save(pszFileName: POleStr; fRemember: BOOL): HResult;
begin
  Result := E_NOTIMPL;
end;
 
function TInfoTip.SaveCompleted(pszFileName: POleStr): HResult;
begin
  Result := E_NOTIMPL;
end;
 
function titip.dfname:string; export;
begin
  dinfo:=finfo;
  Result := dinfo;
end;
 
initialization
  TComObjectFactory.Create(ComServer, TInfoTip, CLSID_InfoTip, '', 'Test Info Tip', ciMultiInstance, tmApartment);
  TComObjectFactory.Create(ComServer, titip, xCLSID_InfoTip, 'Just a test1', 'Just a test11', ciMultiInstance, tmApartment);
 
end.
 

 
-------------------------------------------------------
And my Form to show the Filename and Path::::
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComObj, ActiveX, ExtCtrls;
 
const
  xCLSID_InfoTip : TGUID = '{098FB88B-09E0-5a8d-BF9A-DDCD8041EA1F}';
 
type
  itip = interface
  ['{098FB88B-09E0-5a8d-BF9A-DDCD8041EA1F}']
  function dfname:string; stdcall;
  end;
 
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Timer1Timer(Sender: TObject);
var
  tiptip : itip;
  tt: IPersistFile;
  finfo:string;
  pszFileName:PwideChar;
  hr:Hresult;
 
begin
 OleCheck(CoCreateInstance(xCLSID_InfoTip,
                            nil,
                            CLSCTX_ALL,
                            itip,
                            tiptip));
  Form1.Caption := tiptip.dfname;
end;
 
end.

====================================

 64 
 on: May 13, 2009, 05:15:38 PM 
Started by ciuly - Last post by rionroc
Hello Sir Ciuly

>past questions that got accepted later
Yes, I visit your EE profile for many times and found out that you have a new accepted answer:
"04/17/09     500     Best way to access an Oracle…     Assisted     Delphi Programming"

And your Still number 5 in top 25 list on delphi zone.

Your suspension on EE was one of the greatest mistakes of EE.


"EE Delphi Zone misses your presence."


My account was suspended too on: 03/07/09 08:23 AM
Then my account was restored on 04/15/09 07:49 PM with this message "Your account has been reinstated. However, your next violation -- no matter how small or insignificant -- will result in your being permanently barred from using Experts Exchange, and there will be no appeal.


What did I do, to reactivate my account name "rionroc"? Ask me again, lol


Cheers!

 65 
 on: May 07, 2009, 03:44:16 PM 
Started by ciuly - Last post by ciuly
fixed/improved another bunch of scripts for softpedia:

Affected scripts:
- sp_avertisment, sp_warn_helper, sp_ban_cimpoaca, sp_delete_notify, sp_kill_idiot, sp_move_to_fun_chat, sp_report_sig, sp_ban_carman

Fixes:
- fixed FF support: sp_warn_helper
- improved code: sp_avertisment, sp_warn_helper, sp_ban_cimpoaca, sp_delete_notify, sp_kill_idiot, sp_move_to_fun_chat, sp_report_sig, sp_ban_carman

 66 
 on: May 05, 2009, 11:48:58 AM 
Started by ciuly - Last post by ciuly
sp_warn_helper - added richeditor support

 67 
 on: May 05, 2009, 01:13:51 AM 
Started by ciuly - Last post by ciuly
sp_kill_user: added support for multiple pages

 68 
 on: May 04, 2009, 11:42:54 AM 
Started by ciuly - Last post by ciuly
fixed a bunch of scripts for softpedia.

Affected scripts:
sp_avertisment, sp_ban_cimpoaca, sp_ban_carman, sp_warn_helper, sp_kill_user, sp_report_sig, sp_extra_smilies

Fixes:
- emoticon support: sp_avertisment, sp_ban_cimpoaca, sp_ban_carman, sp_warn_helper, sp_kill_user
- editor usage: sp_avertisment, sp_ban_cimpoaca, sp_ban_carman, sp_report_sig, sp_warn_helper, sp_kill_user
- added more includes: sp_extra_smilies
- fixed starting post count: sp_report_sig

 69 
 on: April 30, 2009, 08:54:41 AM 
Started by ciuly - Last post by ciuly
It just happened again, out of the blue.
I confirm: closing vmware client, restarting all vmware services one by one, and I also started the cmware agent service (not sure if it's needed, next time I won't start it and will confirm). Then starting the vmware client again will show the machine powered on but wil giv eyou the buttons to suspend it. clicking suspend and then resume, will get the machine up, running and showing again.

 70 
 on: April 30, 2009, 08:08:12 AM 
Started by ciuly - Last post by ciuly
I have reached a number of 61 spam rules. Not a big number but it does keep a lot of spam out of my view Smiley
One particular and interesting thing to mention is my experimental image filtering Cheesy They didn't see this coming :lol:
After a few days of successfully rejecting all spam messages containing a specific image, the spammers have decided to improve their spam by changing the image a bit. needless to say I have already adapted my image filtering and should successfully reject all related images.
I am now starting to think of another image filter, which will be using text recognition techniques.

Pages: 1 ... 5 6 [7] 8 9 10
Powered by MySQL Powered by PHP Powered by SMF 1.1.11 | SMF © 2006-2009, Simple Machines LLC | Sitemap Valid XHTML 1.0! Valid CSS!
Page created in 0.066 seconds with 19 queries.