commit 0afd7e9fedc679d0a2a2b64d172f6abc3657b2f6 Author: jdg Date: Sun Sep 12 21:58:47 2021 +0200 First commit 01/10/1999 diff --git a/017OCT.jpg b/017OCT.jpg new file mode 100644 index 0000000..6bfb545 Binary files /dev/null and b/017OCT.jpg differ diff --git a/018OCT.jpg b/018OCT.jpg new file mode 100644 index 0000000..de7bfda Binary files /dev/null and b/018OCT.jpg differ diff --git a/CTapiz.bpr b/CTapiz.bpr new file mode 100644 index 0000000..c30e586 --- /dev/null +++ b/CTapiz.bpr @@ -0,0 +1,144 @@ +# --------------------------------------------------------------------------- +VERSION = BCB.03 +# --------------------------------------------------------------------------- +!ifndef BCB +BCB = $(MAKEDIR)\.. +!endif +# --------------------------------------------------------------------------- +PROJECT = CTapiz.exe +OBJFILES = CTapiz.obj CTapiz_mm.obj +RESFILES = CTapiz.res +RESDEPEN = $(RESFILES) CTapiz_mm.dfm +LIBFILES = +LIBRARIES = JD_soft.lib CDopping.lib INET35.lib QRPT35.lib vcldbx35.lib vcldb35.lib \ + vclx35.lib vcl35.lib +SPARELIBS = vcl35.lib vclx35.lib vcldb35.lib vcldbx35.lib QRPT35.lib INET35.lib \ + CDopping.lib JD_soft.lib +PACKAGES = VCLX35.bpi VCL35.bpi VCLDB35.bpi QRPT35.bpi +PATHASM = .; +PATHCPP = .; +PATHPAS = .; +PATHRC = .; +DEBUGLIBPATH = $(BCB)\lib\debug +RELEASELIBPATH = $(BCB)\lib\release +DEFFILE = +# --------------------------------------------------------------------------- +CFLAG1 = -Od -Hc -w -Ve -r- -k -y -v -vi- -c -b- -w-par -w-inl -Vx +CFLAG2 = -I..\componentes\cdopping\jpg3s;j:\cbuilder3\projects;"..\jd soft\jd";$(BCB)\bin;$(BCB)\objrepos;$(BCB)\projects;$(BCB)\include;$(BCB)\include\vcl;"L:\Programación (-CBuilder-)\Jd Soft" \ + -H=$(BCB)\lib\vcld.csm +CFLAG3 = -5 +PFLAGS = -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE \ + -U..\componentes;..\componentes\cdopping\jpg3s;j:\cbuilder3\projects;"..\jd soft\jd";$(BCB)\bin;$(BCB)\objrepos;$(BCB)\projects;$(BCB)\lib\obj;$(BCB)\lib;"L:\Programación (-CBuilder-)\Jd Soft";$(RELEASELIBPATH) \ + -I..\componentes\cdopping\jpg3s;j:\cbuilder3\projects;"..\jd soft\jd";$(BCB)\bin;$(BCB)\objrepos;$(BCB)\projects;$(BCB)\include;$(BCB)\include\vcl;"L:\Programación (-CBuilder-)\Jd Soft" \ + -H -$Y -$W -$O- -v -JPHNV -M +RFLAGS = -i..\componentes\cdopping\jpg3s;j:\cbuilder3\projects;"..\jd soft\jd";$(BCB)\bin;$(BCB)\objrepos;$(BCB)\projects;$(BCB)\include;$(BCB)\include\vcl;"L:\Programación (-CBuilder-)\Jd Soft" +AFLAGS = /i..\componentes\cdopping\jpg3s /ij:\cbuilder3\projects /i"..\jd soft\jd" \ + /i$(BCB)\bin /i$(BCB)\objrepos /i$(BCB)\projects /i$(BCB)\include \ + /i$(BCB)\include\vcl /i"L:\Programación (-CBuilder-)\Jd Soft" /mx /w2 /zi +LFLAGS = -L..\componentes;..\componentes\cdopping\jpg3s;j:\cbuilder3\projects;"..\jd soft\jd";$(BCB)\bin;$(BCB)\objrepos;$(BCB)\projects;$(BCB)\lib\obj;$(BCB)\lib;"L:\Programación (-CBuilder-)\Jd Soft";$(RELEASELIBPATH) \ + -aa -Tpe -x -v +IFLAGS = -g +LINKER = ilink32 +# --------------------------------------------------------------------------- +ALLOBJ = c0w32.obj sysinit.obj $(OBJFILES) +ALLRES = $(RESFILES) +ALLLIB = $(LIBFILES) $(LIBRARIES) import32.lib cp32mt.lib +# --------------------------------------------------------------------------- +.autodepend + +!ifdef IDEOPTIONS + +[Version Info] +IncludeVerInfo=1 +AutoIncBuild=1 +MajorVer=2 +MinorVer=0 +Release=0 +Build=54 +Debug=0 +PreRelease=1 +Special=0 +Private=0 +DLL=0 +Locale=3082 +CodePage=1252 + +[Version Info Keys] +CompanyName=JD soft. +FileDescription=Selector aleatorio de tapiz +FileVersion=2.0.0.54 +InternalName=CTapiz +LegalCopyright=Copyright (C) JD soft. 1990-1998 +LegalTrademarks=JD soft. +OriginalFilename=CTapiz +ProductName=Cambiador de Tapiz +ProductVersion=2.0.0.0 +Comments=e-mail: Jose-David.Guillen@cs.us.es + +[Excluded Packages] +j:\CBuilder3\Bin\dcldb35.bpl=Borland Database Components +j:\CBuilder3\Bin\dcl31w35.bpl=Borland 1.0 Compatibility Components +C:\WIN98\SYSTEM\bcbsmp35.bpl=Borland C++ Sample Components +C:\WIN98\SYSTEM\dclocx35.bpl=Borland Sample Imported ActiveX Controls +j:\CBuilder3\Bin\dclqrt35.bpl=Borland QuickReport Components +j:\CBuilder3\Bin\rcexpert.bpl=Borland Resource Expert +j:\CBuilder3\Bin\dcltee35.bpl=Borland TeeChart Components +C:\WIN98\SYSTEM\ibsmp35.bpl=Borland C++ InterBase Alerter Component +j:\CBuilder3\Bin\dclint35.bpl=Borland International Tools +j:\CBuilder3\Bin\dclnet35.bpl=Borland Internet Components +C:\WIN98\SYSTEM\NMFAST35.BPL=NetMasters Fastnet Tools +L:\Programación (-CBuilder-)\Componentes\CDopping.bpl=L:\Programación (-CBuilder-)\Componentes\CDopping +L:\Programación (-CBuilder-)\Componentes\CDopping\QSElFrm.bpl=D:\CompsCPP 3\QSElFrm + +[HistoryLists\hlIncludePath] +Count=4 +Item0=..\componentes\cdopping\jpg3s;j:\cbuilder3\projects;..\jd soft\jd;$(BCB)\bin;$(BCB)\objrepos;$(BCB)\projects;$(BCB)\include;$(BCB)\include\vcl;L:\Programación (-CBuilder-)\Jd Soft +Item1=..\componentes\cdopping\jpg3s;j:\cbuilder3\projects;..\jd soft\jd;$(BCB)\bin;$(BCB)\objrepos;$(BCB)\projects;$(BCB)\include;$(BCB)\include\vcl +Item2=j:\cbuilder3\projects;..\jd soft\jd;$(BCB)\bin;$(BCB)\objrepos;$(BCB)\projects;$(BCB)\include;$(BCB)\include\vcl +Item3=..\jd soft\jd;l:\programación (-cbuilder-)\jd soft\jd;l:\cbuilder\cbuilder\objrepos;j:\cbuilder\cbuilder\bin;j:\cbuilder\cbuilder\bin;j:\cbuilder\cbuilder\objrepos;$(BCB)\bin;$(BCB)\objrepos;j:\cbuilder\jd soft;j:\progwin95\jd soft;$(BCB)\projects;$(BCB)\include;$(BCB)\include\vcl + +[HistoryLists\hlLibraryPath] +Count=4 +Item0=..\componentes;..\componentes\cdopping\jpg3s;j:\cbuilder3\projects;..\jd soft\jd;$(BCB)\bin;$(BCB)\objrepos;$(BCB)\projects;$(BCB)\lib\obj;$(BCB)\lib;L:\Programación (-CBuilder-)\Jd Soft +Item1=..\componentes\cdopping\jpg3s;j:\cbuilder3\projects;..\jd soft\jd;$(BCB)\bin;$(BCB)\objrepos;$(BCB)\projects;$(BCB)\lib\obj;$(BCB)\lib +Item2=j:\cbuilder3\projects;..\jd soft\jd;$(BCB)\bin;$(BCB)\objrepos;$(BCB)\projects;$(BCB)\lib\obj;$(BCB)\lib +Item3=..\jd soft\jd;l:\programación (-cbuilder-)\jd soft\jd;l:\cbuilder\cbuilder\objrepos;j:\cbuilder\cbuilder\bin;j:\cbuilder\cbuilder\bin;j:\cbuilder\cbuilder\objrepos;$(BCB)\bin;$(BCB)\objrepos;j:\cbuilder\jd soft;j:\progwin95\jd soft;$(BCB)\projects;$(BCB)\lib\obj;$(BCB)\lib + +[HistoryLists\hlUnitAliases] +Count=1 +Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE + +[Debugging] +DebugSourceDirs= + +[Parameters] +RunParams= +HostApplication= + +!endif + +$(PROJECT): $(OBJFILES) $(RESDEPEN) $(DEFFILE) + $(BCB)\BIN\$(LINKER) @&&! + $(LFLAGS) + + $(ALLOBJ), + + $(PROJECT),, + + $(ALLLIB), + + $(DEFFILE), + + $(ALLRES) +! + +.pas.hpp: + $(BCB)\BIN\dcc32 $(PFLAGS) { $** } + +.pas.obj: + $(BCB)\BIN\dcc32 $(PFLAGS) { $** } + +.cpp.obj: + $(BCB)\BIN\bcc32 $(CFLAG1) $(CFLAG2) -o$* $* + +.c.obj: + $(BCB)\BIN\bcc32 $(CFLAG1) $(CFLAG2) -o$* $** + +.rc.res: + $(BCB)\BIN\brcc32 $(RFLAGS) $< +#----------------------------------------------------------------------------- diff --git a/CTapiz.cpp b/CTapiz.cpp new file mode 100644 index 0000000..06ba638 --- /dev/null +++ b/CTapiz.cpp @@ -0,0 +1,29 @@ +//--------------------------------------------------------------------------- +#include +#include +#pragma hdrstop +USERES("CTapiz.res"); +USEFORM("CTapiz_mm.cpp", CTapiz); +HINSTANCE g_hinst; +//--------------------------------------------------------------------------- +WINAPI WinMain(HINSTANCE hInstance, HINSTANCE, LPSTR lpCmdLine, int) +{ + try + { + Application->Initialize(); + g_hinst = hInstance; + Application->Title = "CambiarTapiz!"; + Application->CreateForm(__classid(TCTapiz), &CTapiz); + Application->ShowMainForm = false; + + if ( AnsiString( lpCmdLine ).IsEmpty() ) + Application->Run(); + } + + catch (Exception &exception) + { + Application->ShowException(&exception); + } + return 0; +} +//--------------------------------------------------------------------------- diff --git a/CTapiz.exe b/CTapiz.exe new file mode 100644 index 0000000..eb45064 Binary files /dev/null and b/CTapiz.exe differ diff --git a/CTapiz.res b/CTapiz.res new file mode 100644 index 0000000..e76c6cc Binary files /dev/null and b/CTapiz.res differ diff --git a/CTapiz_mm.cpp b/CTapiz_mm.cpp new file mode 100644 index 0000000..479da5e --- /dev/null +++ b/CTapiz_mm.cpp @@ -0,0 +1,464 @@ +//--------------------------------------------------------------------------- +#include +#include +#include +#include +#include +#pragma hdrstop + +#include "CTapiz_mm.h" +//--------------------------------------------------------------------------- +#pragma package(smart_init) +#pragma link "mwajpeg" +#pragma resource "*.dfm" +TCTapiz *CTapiz; +//--------------------------------------------------------------------------- +#define GetCurrentDir ExtractFileDir(Application->ExeName) + + +__fastcall TCTapiz::TCTapiz(TComponent* Owner) + : TForm(Owner) +{ + WallPaper_Toolbar = true; + + TrayMessage(NIM_ADD); + TrayMessage(NIM_MODIFY); + + AllowExit = false; + + RefreshYescoge(0); +} +//--------------------------------------------------------------------------- +AnsiString TCTapiz::EligeBitmap( AnsiString iPath ) +{ + AnsiString NombreImagen, Path; + + + if ( WallPaper_Toolbar ) + Path = iPath; + else + Path = iPath + "\\Toolbar"; + + + EligeBitmapR( Path + "\\*.jpg" ); + EligeBitmapR( Path + "\\*.bmp" ); +// EligeBitmapR( Path + "\\*.gif" ); + + randomize(); + if( ListBox1 -> Items -> Count > 0 ) + { + ListBox1->ItemIndex = rand() % ( ListBox1->Items->Count ); + NombreImagen = ListBox1->Items->Strings[ListBox1->ItemIndex]; + return (Path + "\\" + NombreImagen); + } else + return AnsiString(""); +} +//--------------------------------------------------------------------------- +void TCTapiz::EligeBitmapR( AnsiString PathC ) +{ + TSearchRec sr; + int iAttributes = 0xFF; + + if (FindFirst( PathC, iAttributes, sr) == 0) + { + if (sr.Attr & iAttributes) + ListBox1 -> Items ->Add( sr.Name ); + + while (FindNext(sr) == 0) + if (sr.Attr & iAttributes) + ListBox1 -> Items ->Add( sr.Name ); + } + + FindClose(sr); +}; +//--------------------------------------------------------------------------- +void TCTapiz::PonTapiz( AnsiString Tapiz ) +{ + TRegistry *Registro; + Registro = new TRegistry; + AnsiString bStyle; + + bStyle = EligeStylo( Tapiz ); + +try { + Registro -> OpenKey( "\\Control Panel\\Desktop", false ); + Registro -> WriteString( "Wallpaper", Tapiz ); + Registro -> WriteString( "TileWallpaper", (bStyle == "2") ? "0" : "1" ); + Registro -> WriteString( "WallpaperStyle", bStyle ); + SystemParametersInfo( SPI_SETDESKWALLPAPER, 0, Tapiz.c_str(), SPIF_UPDATEINIFILE ); + SystemParametersInfo( SPI_SETDESKWALLPAPER, 0, Tapiz.c_str(), 0 ); +}catch(...){ + //do nothing +} + delete Registro; +}; +//--------------------------------------------------------------------------- +AnsiString TCTapiz::EligeStylo( AnsiString IMG ) +{ + AnsiString dev; + dev = "0"; + + if ( Image1->Picture->Width >= 600 && Image1->Picture->Height >= 400 ) dev = "2"; + + return dev; +} +//--------------------------------------------------------------------------- +void __fastcall TCTapiz::ListBox1DblClick(TObject *Sender) +{ + if ( !WallPaper_Toolbar && !SwapActive->Checked ) return; + + AnsiString Tapiz, Where; + Tapiz = GetCurrentDir + "\\"; + + AnsiString NImage; + + if ( WallPaper_Toolbar ) + { + Where = ""; + NImage = "ctapiz_JPG2BMP.bmp"; + } else { + char name[13]; + tmpnam(name); + + Where = "ToolBar\\"; + NImage = AnsiString( name ) + "_ctapiz_JPG2BMP.bmp"; + } + + // Si es un JPEG lo convertimos a BMP + if ( (ListBox1->Items->Strings[ ListBox1 -> ItemIndex ].UpperCase()).AnsiPos( ".BMP" ) == 0 ) + { + Image1->Picture->SaveToFile( Where + NImage ); + Tapiz += ( Where + NImage ); + } else + Tapiz += (Where + ListBox1 -> Items -> Strings[ ListBox1 -> ItemIndex ]); + + if ( WallPaper_Toolbar ) + PonTapiz( Tapiz ); + else + PonToolBar( Tapiz ); +} +//--------------------------------------------------------------------------- + +void __fastcall TCTapiz::ListBox1KeyPress(TObject *Sender, char &Key) +{ + if ( Key == VK_RETURN ) + ListBox1DblClick( 0 ); + +} +//--------------------------------------------------------------------------- +void __fastcall TCTapiz::ListBox1Click(TObject *Sender) +{ + // Cargamos la imagen + if ( WallPaper_Toolbar ) + Image1->Picture->LoadFromFile( ListBox1 -> Items -> Strings[ ListBox1 -> ItemIndex ] ); + else + Image1->Picture->LoadFromFile( "ToolBar\\"+ListBox1 -> Items -> Strings[ ListBox1 -> ItemIndex ] ); + + Image1->Top = 0; + Image1->Left = 140; + // Vemos si es mayor que el recuadro que la contiene... + if ( Image1->Picture->Height > 200 || Image1->Picture->Width > 200 ) + { + // Reescalamos en ese caso + if ( Image1->Picture->Height > Image1->Picture->Width ) + { + Image1->Height = 200; + Image1->Width = (Image1->Picture->Width * 200 ) / Image1->Picture->Height; + Image1->Left += ( 200 - Image1->Width ) / 2; + } else { + Image1->Width = 200; + Image1->Height = (Image1->Picture->Height * 200 ) / Image1->Picture->Width; + Image1->Top = ( 200 - Image1->Height ) / 2; + } + } else { + Image1->Height = 200; + Image1->Width = 200; + } +} +//--------------------------------------------------------------------------- +void __fastcall TCTapiz::FormDestroy(TObject *Sender) +{ + TrayMessage(NIM_DELETE); +} +//--------------------------------------------------------------------------- +//--------------------------------------------------------------------------- +void __fastcall TCTapiz::DrawItem(TMessage& Msg) +{ + IconDrawItem((LPDRAWITEMSTRUCT)Msg.LParam); + TForm::Dispatch(&Msg); +} +//--------------------------------------------------------------------------- +void __fastcall TCTapiz::MyNotify(TMessage& Msg) +{ + POINT MousePos; + + switch(Msg.LParam) + { + case WM_RBUTTONUP: + if ( GetCursorPos(&MousePos) ) + { + PopupMenu1->PopupComponent = CTapiz; + SetForegroundWindow(Handle); + PopupMenu1->Popup(MousePos.x, MousePos.y); + PopupMenu1->PopupComponent = 0; + } + break; + case WM_LBUTTONDBLCLK: + Height = 230; + Visible = true; + break; + default: + break; + } + TForm::Dispatch(&Msg); +} +//--------------------------------------------------------------------------- +bool __fastcall TCTapiz::TrayMessage(DWORD dwMessage) +{ + NOTIFYICONDATA tnd; + PSTR pszTip; + + pszTip = TipText(); + + tnd.cbSize = sizeof(NOTIFYICONDATA); + tnd.hWnd = Handle; + tnd.uID = IDC_MYICON; + tnd.uFlags = NIF_MESSAGE | NIF_ICON | NIF_TIP; + tnd.uCallbackMessage = MYWM_NOTIFY; + + if (dwMessage == NIM_MODIFY) + { + tnd.hIcon = IconHandle(); + if (pszTip) + lstrcpyn(tnd.szTip, pszTip, sizeof(tnd.szTip)); + else + tnd.szTip[0] = '\0'; + } + else + { + tnd.hIcon = NULL; + tnd.szTip[0] = '\0'; + } + + return (Shell_NotifyIcon(dwMessage, &tnd)); +} +//--------------------------------------------------------------------------- +HANDLE __fastcall TCTapiz::IconHandle(void) +{ + return Application->Icon->Handle; +} +//--------------------------------------------------------------------------- +PSTR __fastcall TCTapiz::TipText(void) +{ + return ("CTapiz v2.1"); +} +//--------------------------------------------------------------------------- +LRESULT IconDrawItem(LPDRAWITEMSTRUCT lpdi) +{ + HICON hIcon; + + hIcon = (HICON)LoadImage(g_hinst, MAKEINTRESOURCE(lpdi->CtlID), IMAGE_ICON, + 16, 16, 0); + if (!hIcon) + return(FALSE); + + DrawIconEx(lpdi->hDC, lpdi->rcItem.left, lpdi->rcItem.top, hIcon, + 16, 16, 0, NULL, DI_NORMAL); + + return(TRUE); +} + +void __fastcall TCTapiz::MostarCTapiz1Click(TObject *Sender) +{ + Height = 230; + Visible = true; +} +//--------------------------------------------------------------------------- + +void __fastcall TCTapiz::Cerrar1Click(TObject *Sender) +{ + Visible = false; + Close(); +} +//--------------------------------------------------------------------------- + +void __fastcall TCTapiz::Configurar1Click(TObject *Sender) +{ + Height = 290; + Visible = true; +} +//--------------------------------------------------------------------------- + +void __fastcall TCTapiz::CheckBox2Click(TObject *Sender) +{ + TRegistry *Registro; + Registro = new TRegistry; + + if ( CheckBox2->Checked ) + AllowExit = false; + + Registro -> OpenKey( "\\Software\\JDsoft", true ); + Registro -> OpenKey( "\\Software\\JDsoft\\CTapiz", true ); + Registro -> WriteBool( "AutoChange", CheckBox2->Checked ); + + Timer1->Interval = UpDown1->Position * 60 * 1000; + Timer1->Enabled = true; + + delete Registro; +} +//--------------------------------------------------------------------------- +void __fastcall TCTapiz::CheckBox1Click(TObject *Sender) +{ + TRegistry *Registro; + Registro = new TRegistry; + + try { + Registro -> OpenKey( "\\Software\\Microsoft\\Windows\\CurrentVersion\\Run", false ); + if ( CheckBox1->Checked ) + Registro -> WriteString( "CTapiz", Application->ExeName ); + else + Registro -> DeleteValue( "CTapiz" ); + }catch(...){ + //do nothing + } + delete Registro; +} +//--------------------------------------------------------------------------- + + +void __fastcall TCTapiz::FormCloseQuery(TObject *Sender, bool &CanClose) +{ + if ( Visible ) + { + Visible = false; + CanClose = false; + } +} +//--------------------------------------------------------------------------- +void __fastcall TCTapiz::UpDown1Changing(TObject *Sender, + bool &AllowChange) +{ + TRegistry *Registro; + Registro = new TRegistry; + + Label1->Caption = UpDown1->Position; + try { + Registro -> OpenKey( "\\Software\\JDsoft\\CTapiz", true ); + Registro -> WriteInteger( "DelayTime", UpDown1->Position ); + Timer1->Interval = UpDown1->Position * 60 * 1000; + }catch(...){ + //do nothing + } + delete Registro; +} +//--------------------------------------------------------------------------- +void __fastcall TCTapiz::RefreshYescoge(TObject *Sender) +{ + ListBox1->Clear(); + if ( ! EligeBitmap( GetCurrentDir ).IsEmpty() ) + { + ListBox1Click( 0 ); + if ( WallPaper_Toolbar ) + ListBox1DblClick( 0 ); + } +} +//--------------------------------------------------------------------------- +void __fastcall TCTapiz::FormCreate(TObject *Sender) +{ + TRegistry *Registro; + Registro = new TRegistry; + try { + Registro -> OpenKey( "\\Software\\Microsoft\\Windows\\CurrentVersion\\Run", false ); + CheckBox1->Checked = Registro -> ValueExists( "CTapiz" ); + }catch(...){ + //do nothing + } + try { + Registro -> OpenKey( "\\Software\\JDsoft\\CTapiz", true ); + CheckBox2->Checked = Registro -> ReadBool( "AutoChange" ); + UpDown1->Position = Registro->ReadInteger( "DelayTime" ); + }catch(...) { + UpDown1->Position = 15; + } + delete Registro; + + Label1->Caption = UpDown1->Position; + Timer1->Interval = UpDown1->Position * 60 * 1000; + Timer1->Enabled = CheckBox2->Checked; + + if ( ! CheckBox1->Checked ) + Visible = true; +} +//--------------------------------------------------------------------------- + +void __fastcall TCTapiz::SwapActiveClick(TObject *Sender) +{ + TRegistry *Registro; + Registro = new TRegistry; + + Registro -> OpenKey( "\\Software\\Microsoft\\Internet Explorer\\Toolbar", true ); + + // Eliminamos la clave + if ( ! SwapActive->Checked ) + { + try { + Registro -> DeleteValue( "BackBitmap" ); + } catch(...) { + // ------ + } + } + + delete Registro; +} +//--------------------------------------------------------------------------- +void __fastcall TCTapiz::SwapFunctionClick(TObject *Sender) +{ + WallPaper_Toolbar = !WallPaper_Toolbar; + if ( WallPaper_Toolbar ) + { + SwapActive->Enabled = false; + SwapFunction->Caption = "Barra de Herramientas"; + RefreshYescoge(0); + } else { + SwapActive->Enabled = true; + SwapFunction->Caption = "Tapiz del Escritorio"; + RefreshYescoge(0); + } +} +//--------------------------------------------------------------------------- +void TCTapiz::PonToolBar( AnsiString Tapiz ) +{ + TRegistry *Registro; + Registro = new TRegistry; + + // Borramos la entrada antigua... + + Registro -> OpenKey( "\\Software\\JDsoft\\CTapiz", true ); + try { + remove( (Registro -> ReadString( "ToolBarBitmap" )).c_str() ); + } catch(...) { + /// nothing + } + if ( Tapiz.Pos( "_ctapiz_JPG2BMP.bmp" ) != 0 ) + Registro -> WriteString( "ToolBarBitmap", Tapiz ); + + Registro -> OpenKey( "\\Software\\Microsoft\\Internet Explorer\\Toolbar", true ); + Registro -> WriteString( "BackBitmap", Tapiz ); +/* + SystemParametersInfo( SPI_SETDESKWALLPAPER, 0, Tapiz.c_str(), SPIF_UPDATEINIFILE ); + SystemParametersInfo( SPI_SETDESKWALLPAPER, 0, Tapiz.c_str(), 0 ); +*/ + delete Registro; +} +//--------------------------------------------------------------------------- +void __fastcall TCTapiz::Timer1Timer(TObject *Sender) +{ + if ( ! WallPaper_Toolbar ) + { + SwapFunctionClick(0); + SwapFunctionClick(0); + } else + RefreshYescoge(0); +} +//--------------------------------------------------------------------------- + diff --git a/CTapiz_mm.dfm b/CTapiz_mm.dfm new file mode 100644 index 0000000..933e950 Binary files /dev/null and b/CTapiz_mm.dfm differ diff --git a/CTapiz_mm.h b/CTapiz_mm.h new file mode 100644 index 0000000..587247b --- /dev/null +++ b/CTapiz_mm.h @@ -0,0 +1,89 @@ +//--------------------------------------------------------------------------- +#ifndef CTapiz_mmH +#define CTapiz_mmH +//--------------------------------------------------------------------------- +#include +#include +#include +#include +#include "Mwajpeg.hpp" +#include +#include "mwajpeg.hpp" +#include +#include +//--------------------------------------------------------------------------- + +#define MYWM_NOTIFY (WM_APP+100) +#define IDC_MYICON 1006 +extern HINSTANCE g_hinst; +LRESULT IconDrawItem(LPDRAWITEMSTRUCT lpdi); +//--------------------------------------------------------------------------- +class TCTapiz : public TForm +{ +__published: // IDE-managed Components + TListBox *ListBox1; + TJPEGFileDecompressor *JPEGFileDecompressor1; + TImage *Image1; + TTimer *Timer1; + TPopupMenu *PopupMenu1; + TMenuItem *MostarCTapiz1; + TMenuItem *Configurar1; + TMenuItem *Cerrar1; + TMenuItem *N1; + TBevel *Bevel1; + TCheckBox *CheckBox1; + TCheckBox *CheckBox2; + TLabel *Label1; + TUpDown *UpDown1; + TLabel *Label2; + TButton *SwapFunction; + TCheckBox *SwapActive; + void __fastcall ListBox1DblClick(TObject *Sender); + void __fastcall ListBox1KeyPress(TObject *Sender, char &Key); + void __fastcall ListBox1Click(TObject *Sender); + void __fastcall FormDestroy(TObject *Sender); + void __fastcall MostarCTapiz1Click(TObject *Sender); + void __fastcall Cerrar1Click(TObject *Sender); + void __fastcall Configurar1Click(TObject *Sender); + void __fastcall CheckBox2Click(TObject *Sender); + void __fastcall CheckBox1Click(TObject *Sender); + void __fastcall FormCloseQuery(TObject *Sender, bool &CanClose); + void __fastcall UpDown1Changing(TObject *Sender, bool &AllowChange); + void __fastcall RefreshYescoge(TObject *Sender); + + + void __fastcall FormCreate(TObject *Sender); + void __fastcall SwapActiveClick(TObject *Sender); + void __fastcall SwapFunctionClick(TObject *Sender); + void __fastcall Timer1Timer(TObject *Sender); +private: // User declarations + bool WallPaper_Toolbar; + int nArchivos; +public: // User declarations + void PonTapiz ( AnsiString Tapiz ); + void PonToolBar ( AnsiString Tapiz ); + AnsiString EligeStylo( AnsiString IMG ); + AnsiString EligeBitmap( AnsiString iPath ); + void EligeBitmapR( AnsiString PathC ); + + __fastcall TCTapiz(TComponent* Owner); + + + bool AllowExit; +//--------------------------------------------------------------------------- + void __fastcall DrawItem(TMessage& Msg); + void __fastcall MyNotify(TMessage& Msg); + bool __fastcall TrayMessage(DWORD dwMessage); + HANDLE __fastcall IconHandle(void); + PSTR __fastcall TipText(void); +BEGIN_MESSAGE_MAP +MESSAGE_HANDLER(WM_DRAWITEM,TMessage,DrawItem) +MESSAGE_HANDLER(MYWM_NOTIFY,TMessage,MyNotify) +END_MESSAGE_MAP(TForm) +//--------------------------------------------------------------------------- + +}; +//--------------------------------------------------------------------------- +extern PACKAGE TCTapiz *CTapiz; +//--------------------------------------------------------------------------- +#endif diff --git a/README.md b/README.md new file mode 100644 index 0000000..f672cb3 --- /dev/null +++ b/README.md @@ -0,0 +1,9 @@ +#CTapiz + + +*01/10/1999* + +ToDo: wwtcf? + + +![screenshot](/CTapiz.png "Screenshot") diff --git a/ToolBar/0103emodel.jpg b/ToolBar/0103emodel.jpg new file mode 100644 index 0000000..cf438a6 Binary files /dev/null and b/ToolBar/0103emodel.jpg differ diff --git a/ToolBar/0103invasion.jpg b/ToolBar/0103invasion.jpg new file mode 100644 index 0000000..7e54898 Binary files /dev/null and b/ToolBar/0103invasion.jpg differ diff --git a/ToolBar/0118surf1.jpg b/ToolBar/0118surf1.jpg new file mode 100644 index 0000000..b5e26aa Binary files /dev/null and b/ToolBar/0118surf1.jpg differ diff --git a/ToolBar/0119Outer.jpg b/ToolBar/0119Outer.jpg new file mode 100644 index 0000000..b177f53 Binary files /dev/null and b/ToolBar/0119Outer.jpg differ diff --git a/ctapiz_JPG2BMP.bmp b/ctapiz_JPG2BMP.bmp new file mode 100644 index 0000000..3c6d994 Binary files /dev/null and b/ctapiz_JPG2BMP.bmp differ