NLDelphi

VerySimpleXML (LoadXML)

Ops1966 — Wed, 19 Jun 2013 09:01:18 GMT

Ik zit even wat te proberen met VerySimpleXML wat voor mij precies genoeg is maar bij het inlezen, wat gewoon werkt zit ik met een probleem.
Dit is wat ik heb:

Code:

{--- XML TEST ----}

procedure TfrmNetRadio.LoadXML(Items: TStrings);

const

  SEPARATOR = '|';

var

  DataLink,

  DataDesc,

  DataGenre: WideString;

  Count: Integer;

  Xml: TXmlVerySimple;

  Node: TXmlNode;

  Nodes: TXmlNodeList;

begin

  Items.Clear;

  Xml := TXmlVerySimple.Create;

  Xml.LoadFromFile(AddBS(TempFolderPath) + 'NetRadio.xml');

  {}

  Nodes := Xml.Root.FindNodes('item');

  for Node in Nodes do begin

    Count := Node.ChildNodes.Count;

    if (Count = 3) then begin

      if Node.HasChild('datalink') then DataLink := Node.ChildNodes[0].Text;

      if Node.HasChild('datadesc') then DataDesc := Node.ChildNodes[1].Text;

      if Node.HasChild('datagenre') then DataGenre := Node.ChildNodes[2].Text;

    end;

    Items.Append(DataLink + SEPARATOR + DataDesc + SEPARATOR + DataGenre);

  end;

  Nodes.Free;

  Xml.Free;

end;

Fijn zover maar bij regel:

Code:

if Node.HasChild('datalink') then DataLink := Node.ChildNodes[0].Text;

Klopt het niet als ik straks wat omgooi bij opslaan. ChildNodes[0] is dan misschien niet meer 'datalink'.
Hoe kan ik dit anders schrijven zodat bij herkennen van 'datalink' ook echt deze node aan 'DataLink: WideString' wordt gekoppeld?

Ik kom er niet uit.
Geprobeerd:

Code:

if Node.HasChild('datalink') then DataLink := Node.Attribute['datalink'];

Maar dat gaat niet lukken.
Iemand ervaring?
Bedankt alvast.

Onthouden in een lijst met namen van bestanden

Dubbeld — Tue, 18 Jun 2013 17:47:23 GMT

Hallo allemaal,

Ik zit met het volgende probleem. Ik heb een aantal mappen met daarin .MP3 bestanden. Als ik MP3 bestanden wil afspelen dan wil ik de mogelijkheid hebben om van de laatst gespeelde MP3 de plaats te onthouden om later hier weer verder te gaan. Hoe los je dat op?

P.S. De lijst met namen van de MP3 bestanden wordt in een StringList gezet.

Met een vriendelijke groet, Frans

Focus op control zetten

Antoine — Tue, 18 Jun 2013 08:18:26 GMT

Hey,

Ik zit met een vraagje. Als ik een venster sluit die nog niet volledig is ingevul (dbEdits) komt er een melding dat dit of dat veld nog niet is ingevuld. Dit kan ook een een veld zijn die niet zichtbaar is, bijvoorbeeld in een ander tabblad die op dat venster staat.

Nu wil ik dat in alle gevallen de focus komt te staan op datgene veld die nog niet gevuld is. Welke kant moet ik (buiten Control.Focus) dan nog meer uitdenken?

Hoor het graag van u....

Werken met WIA status; Omscholing; Delphi Audit.

SaintPier — Mon, 17 Jun 2013 12:25:56 GMT

Goedendag mensen,

Mezelf over de drempel tillend, heb ik de moed gevat het volgende te vragen / melden:

Ik sukkel met gezondheid, en kan mijn oude beroep niet meer uitoefenen.
Mijn oude beroep was vrachtwagen chauffeur.
Sommigen vinden het niet handig om te starten met beperkingen die ik heb, maar zelf vind ik het wel zo eerlijk om alles gewoon te melden. Ik heb er zelf totaal geen probleem mee om mijn gezondheidstoestand openbaar te maken.
Met het UWV heb ik het onderwerp besproken om indien mogelijk mezelf om te scholen tot programmeur.
Echter weet ik momenteel niet waar ik sta qua Delphi kennis. Daarvoor zou ik een audit kunnen doen, of ondergaan. Hoe zeg je dat?

Een aantal jaren terug ben ik ook werkzaam geweest als systeem beheerder op ongeveer 85 scholen. Dat deed ik bij een bedrijf dat contracten met die scholen had. Dit bedrijf heeft verzaakt om vooruit te denken, en is door concurrentie zo goed als om zeep geholpen. Het bedrijf ging verder als software ontwikkel bedrijf. Mijn afdeling TD werd weg gesaneerd.
Ik heb toen ook een audit gehad en daaruit bleek al dat ik eigenlijk programmeren het leukst vond, en het meeste talent voor had. Maar toen heeft het UWV besloten dat een Delphi cursus te duur was en te lang duurde. Ik mocht MCSA gaan doen. Dat werd verzorgd door een bedrijf die daar best veel voor vroeg (� 3250,=), maar slechts de boeken leverde t.w.v. � 400,=. Mijn vragen, en ook van anderen, op het daartoe bestemde forum werden structureel niet beantwoord.
Bij het examen van het eerste onderdeel bleek dat ik met het verkeerde onderdeel was begonnen. Bovendien vond ik de stof buitengewoon theoretisch. Ik was hoofdzakelijk bezig om van de verschillende Microsoft product versies te leren wat er wel en niet in zat. MCSA heb ik nooit meer afgemaakt, en ben om te overleven weer op de vrachtwagen gaan rijden, maar dan alleen binnenland. Dat heb ik gedaan tot augustus 2012. Toen ging het qua gezondheid niet meer.

Ik heb helaas de fysieke eigenschap, dat mijn slagaderen nogal snel dichtslibben. In 2005 heb ik een broekprothese gekregen. Deze ging al snel weer dicht zitten, en ik ben dan ook in 2010 geopereerd in de linker lies, en in 2012 in de rechter. Nu, vrijdag 7-6-2013 om precies te zijn, ben ik in Rotterdam geopereerd om mijn linker been weer wat bloed te geven. De linker poot van de broekprothese is opengemaakt en voor de zekerheid heb ik een bypass gekregen vanuit mijn rechter lies tot net boven mijn linker knie. Er waren wat bacteri�le ontstekingen op mijn linker been gekomen die niet wilden genezen. Na deze operatie begon dat genezen vrij snel doordat het bloed weer stroomt.

Wat ik zoek is een mogelijkheid om ergens een opleiding te volgen om het programmeren in Delphi te leren. Dit zou dan mogelijk zijn met behoud van uitkering. Er zijn wat voorwaarden uiteraard, maar die weet ik zo even niet uit het hoofd. E.e.a. zoek ik nog op en kan ik desgewenst posten.
Ik vraag om te beginnen niet veel. Ben ik zover dat ik inzetbaar ben, dan kunnen we evalueren.
Voor zover ik het begrepen heb kan ik eventueel een WIA status, of notering krijgen wat ervoor zorgt dat een bedrijf geen kosten hoeft te maken als ik uitval door ziekte. In geval van uitval door ziekte neemt het UWV de kosten geheel of gedeeltelijk voor haar rekening.

Voordat er op details wordt ingegaan wilde ik eerst eens onderzoeken of er �berhaupt interesse is voor iemand zoals ik. De tijden zijn niet zo heel gunstig, maar toch..
Om nou heel de dag maar thuis te gaan zitten heb ik absoluut geen trek in. Ik wil aan de slag.
Alle input is welkom, zolang het geen flames worden. ;)

Het is misschien een wat lang verhaal geworden, maar ik ben graag volledig en duidelijk.
BVD
Greets,
Peter.

F2039 Error + mogelijke oplossing?

organizer — Sun, 16 Jun 2013 23:40:09 GMT

Al een hele lange tijd was ik de dupe van Error F2039 "Cannot write to EXE file"

Dus moest ik me Delphi afsluiten of de EXE verwijderen..
En dat gebeurde zo'n 10-20x per uur.

Nu had ik 1 component geinstalleerd genaamd "MadExcept" voor mij Bug Reporting.
Ik heb deze verwijderd, en ineens voor 2 dagen geen enkel problem meer met
de volgende 3 items.

- Error 0000026 (Sluit Delphi compleet af)
- F2039 (Cannot write EXE )
- programma executes in debug mode, maar zit ergens in limbo land.
Kill Delphi taak is de enige oplossing.

Heeft iemand ook MadExcept geinstalleerd en heeft ook dit probleem?
Mogelijk kan je dit is proberen, als je dit freeware programma geinstalleerd hebt.
Heb mijn QA ge-update bij Embarcadero, maar was benieuwd of iemand het hier ook gebruikt.

TdefaultComponentEditor Error

Wok — Sun, 16 Jun 2013 20:04:41 GMT

Hallo,

Ik heb gisteren mijn Lazarus 1.0.8 geupdate naar 1.0.10
En sinds dien krijg ik een foutmelding als ik dmv een dubbleclick, een event wil koppelen aan een Tbutton.
Suggestie's over rescan, herinstalleren, clean herinstal hebben geen resultaat gegeven. (Ook de eerdere meldingen op het lazarus forum bieden geen oplossing)
Dus ik dacht dus duidelijk aan een bug,...gemeld en
deze is vandaag op slot gegaan, als zijn de een user probleem/instelling
Maar ja waar moet ik zoeken ? Ik heb werkelijk geen idee.
Ik ben nu terug naar versie 1.0.8 en deze werkt naar behoren, dat maakt het zoeken nog moeilijker.

Tips en Suggestie's zijn welkom
Peter

Memo/blob opslaan in SQLite

organizer — Sat, 15 Jun 2013 03:22:15 GMT

Ik ben gewend met nexus Db dat ik een BlobMemo heb waar ik gewoon de hele inhoud van een Tmemo kon opslaan.
Nu met SQLite, kan ik dat niet meer doen, aangezien ik een error krijg die alleen zegt " > 255 " :confused:

Nu blijkt het anders te gaan met SQLite, maar kan er weinig over vinden voor een Memo veld.
Heb wel wat gevonden voor een plaatje, maar zag er erg omslachtig uit.

Heeft iemand een betere link of kan mij vertellen, hoe het wel in elkaar zit?

Thanks :)

PDF openen en tekst kopieren

Hans Brenkman — Fri, 14 Jun 2013 11:58:31 GMT

Ik wil een maandelijks aangeleverde PDF met cijfers als tekst inlezen om als CSV-bestand voor een applicatie aan te kunnen leveren. De PDF als Excel of CSV aangeleverd te krijgen is geen optie volgens de leverende partij :rolleyes:

Ik heb e.e.a. geprobeerd o.a.
http://www.delphipages.com/forum/sho...26&postcount=4
en
http://www.swissdelphicenter.ch/en/showcode.php?id=2169
maar beide geven de foutmelding EOleSysError "Ongeldige klassereeks".

Ik heb de "Adobe Acrobat 8.0 Type Library 1.1" ge�mporteerd en zie daarin een lijst "Forward declaration of types defined in TypeLibrary" met (disp)interfaces. Zover mijn kennis reikt, kan ik die benamingen gebruiken in de aanroepende procedure voor de communicatie tussen de TL en mijn code.

In de voorbeelden wordt gebruikt :

Code:

App := CreateOleObject('AcroExch.App');

Code:

App := CreateOleObject('AcroExch.pdDoc');

Ik zie echter niet waar "AcroExch" vandaan wordt gehaald en de interface "App" ook niet. Dus maar een van die andere interfaces geprobeerd en dan komt qua benodigde functionaliteit MenuItemExecute alleen CAcroApp in aanmerking. Maar wat ik ook probeer, de foutmelding blijft hetzelfde.

Ik heb uiteraard gezocht, maar kan geen oplossing vinden. Hoe kan ik dit oplossen ?

Fastreport Positie Text object

rsjmeijer — Thu, 13 Jun 2013 10:00:39 GMT

Hoe kan ik in Fastreport afhankelijk van de waarde van een database de positie van een text object wijzigen?

De check op de database waarde heb ik werkend, maar wat ik ook probeer de positie kan ik niet wijzigen.

Wat ik heb geprobeerd:

Code:

M_ArtikelOmschr.Memo.Left:=0,10; Foutmelding: ScriptError at: ; expected;

M_ArtikelOmschr.Left:=0.10;

M_ArtikelOmschr.Left:='0,10';

M_ArtikelOmschr.Left:=0,10; Foutmelding: ScriptError at: ; expected;

Maar helaas dat werkt niet :-(

winvnc server als DLL

develyoy — Thu, 13 Jun 2013 08:07:33 GMT

Ik heb nu op het werk een opstelling waarin we (in uitzonderlijke gevallen, als de klant er om vraagt) op afstand winvnc.exe opstarten, met parameters deze enkel op 'localhost' doet luisteren, met ons programma dan een verbinding maken naar winvnc.exe op 'localhost', en dan deze data doorsturen met de andere data over een beveiligde verbinding die we al hebben, in beide richtingen.

Weet iemand toevallig of ergens een alternatief zou bestaan in de vorm van een component of een DLL, zodat we het 'zware werk' kunnen laten doen door iets dat minder ingrijpend/fragiel is dan een extern proces en een localhost TCP connectie? Tot nu toe hebben we nog niet veel problemen met de huidige opstelling, maar als deze soms het niet blijkt te doen kunnen we moeilijk vaststellen waarom.

Ik heb wel al eens liggen neuzen in de source van bijvoorbeeld deze, maar mijn kennis van C is niet genoeg om wat ik nodig heb in een DLL te kunnen rollen.

Ook heb ik al eens geprobeerd zelf iets gelijkaardig te maken in Delphi, al dan niet sterk ge�nspireerd op bovenstaande link, maar dit zou veel te veel tijd kosten voor wat het maar opbrengt. En ook overvalt mij het idee dat iemand dit misschien toch wel ook al eens moet hebben gedaan.

Iemand een idee?

Class constructor aanmaken en dit in een TList

donder — Wed, 12 Jun 2013 13:41:47 GMT

Beste Delphiers,

Lang lang geleden ben ik ooit eens begonnen met Delphi en daarna over gegaan naar Java. Doordat het al ruim 6 jaar geleden is ben ik helemaal kwijt hoe ik een class met constructor kan maken met eventuele getters en setters.

Even een voorbeeld uit Java waarvan ik wel weet hoe dat werkt en dit wil ombouwen naar Delphi XE4.

Code:



// myEigenClass

public class myEigenClass {



private String string1, string2;



public myEigenClass(String string1, String string2 ){

   this.string1 = string1;

   this.string2 = string2;   

}



public String getString1(){

   return string1;

}



public String getString2(){

   return string2;

}



public void setString1( String string1 ){

   this.string1 = string1;

}



public void setString2( String string2 ){

   this.string2 = string2;

}



}



// MainClass



public class MainClass {

     ArrayList arraylijstje = new ArrayList();



private void createArray(){

   arraylijstje.add( new myEigenClass("testje1", "testje2");

   arraylijstje.add( new myEigenClass("testje3", "testje4");

}



}

Alvast bedankt voor jullie inzet!

PC automatisch laten afsluiten

lainkes — Wed, 12 Jun 2013 08:10:46 GMT

Hallo,

Is het mogelijk om een Windows 7 PC automatisch te laten afsluiten of in slaap stand te brengen, en dit wanneer er na 30 minuten geen activiteit geweest is.
Misschien een service die draait op de PC?

Graag jullie advies

Alvast bedankt

Lainkes

Bron pagina laden van lokaal .htm bestand

Bachatero — Mon, 10 Jun 2013 20:37:45 GMT

Ik wil de bron code van een lokaal opgeslagen HTML bestand laden in een TMemo, maar ik krijg de onderstaande foutmelding: Unkown protocol

Memo2.Text := IdHTTP1.Get('file://C:/Users/User/Documents/RAD Studio/Projects/Test.htm');

Dit werkt wel:
Memo2.Text := IdHTTP1.Get('http://www.google.nl');

Is dit eigelijk wel mogelijk zoals ik het in bovenstaand voorbeeld probeer ?

Chatten met eigen applicatie

Antoine — Mon, 10 Jun 2013 13:00:52 GMT

Dag,

Sommigen weten dat ik een (lol)applicatie aan het schrijven ben. Dat is een soort chat voor bijvoorbeeld op kantoor. De meningen kunnen daarover verdeeld zijn, maar ik doe het eigenlijk voor educatie.

Ik heb een hele simpele client waar echt alleen (nog) maar tekst in kan en je kan je naam invoeren. Niks bijzonders...

Hoe en wat is de slimste / makkelijkste manier om de clients met elkaar te laten communiseren?

a: Een servertje maken waar alle data wordt verzamelt en weer gestuurd wordt naar alle clients die open zijn?

b: Een heuse chat maken die gebruik maakt van je ip-adres?

En dan zou ik graag willen weten waarop jullie keuze valt en waarom.

Natuurlijk zijn de tips meer dan welkom!:)

Kritiek is natuurlijk welkom, maar ik geloof niet dat mijn applicatie daardwerkelijk gaat gebruikt worden. (Slechte insteek, jaja, dat weet ik ;))

Hoor het graag van jullie...

gr

verschil tussen program en application

freddie2 — Mon, 10 Jun 2013 07:39:42 GMT

voor mij was dit tot nu toe hetzelfde
in D6 werd het verschil ook niet gemaakt maar lazarus laat je bij de start de keuze te kiezen tussen application en program.

maar welke essentiele keuze maak ik nu wanneer ik ipv van "application","program" kies.

Wachten tot printen klaar is

mierlp — Sun, 09 Jun 2013 19:34:46 GMT

hi

Ik heb een dbgrid en daar staan per regel het aantal te generen afdrukken in.
Wat er gebeurd is dat men op regel niveau de print opdracht geeft.
Stel er moeten 10 afdrukken gemaakt worden dan wordt er in een ''loop"
eerst 10 records gegenereerd in een database en vervolgens geprint.

Dit gaat goed als ik eerst wacht tot de 10 afdrukken zijn gemaakt.
Druk ik te snel op de volgende regel dan worden er van de tweede
bijvoorbeeld maar 7 afdrukken gemaakt

De oorzaak zit hem denk in de loop omdat ik daar iedere keer een teller
op NUL zet. Onderstaande procedure gebruik ik :

Code:

         cAantal:=0;

         cAantaToegekend:=Faciliteit.FieldByName('ItemIDamountGrant').asInteger;

         while cAantal
             // Eerste record aanmaken in scan database

                // GEgevens in scan database bewaren

               dmRemain.scanNumbers.Append;

               dmRemain.scanNumbers.FieldByName('ScanStatus').value:='Uit';

               dmRemain.scanNumbers.FieldByName('Naam').value      :=Faciliteit.FieldByName('FaciliteitNaam').value;

               dmRemain.scanNumbers.FieldByName('Faciliteit').value:=Faciliteit.FieldByName('ID').value;

               dmRemain.scanNumbers.FieldByName('AfdelingID').value :=Faciliteit.FieldByName('AfdelingID').value;

               dmRemain.scanNumbers.Post;

               FormMain.frxReport.PrintOptions.Printer:=Faciliteit.FieldByName('PrinterNaam').asString;

               FormMain.frxReport.PrepareReport;

               FormMain.frxReport.print;

               cAmountCount:=cAmountCount+1;

         end;

Hoe kan ik voorkomen dat wanneer men te snel op de volgende regel
klikt om af te drukken het afdrukken daar door in de soep loopt.

Greetz PEter

toegang tot een access bestand

Hansvb — Sat, 08 Jun 2013 18:51:11 GMT

Op een windows pc (zonder access) draait een applicatie die access bestanden opent en bewerkt.
Nu wil ik met Lazarus ook in de access bestanden kunnen kijken. Echter als ik op de pc een udl bestand maak om een verbinding te maken/testen dan zie ik bij computergegevensbronnen geen access staan.

In Lazarus is het volgende dus niet mogelijk omdat de driver ontbreekt:

Code:

ODBCConnection1.Driver:= 'Microsoft Access Driver (*.mdb)';

Access installeren is geen optie.

Zijn de juiste drivers op de een of andere manier te installeren? Bij voorkeur gratis)

Thinstuff Remote Application

mierlp — Thu, 06 Jun 2013 17:36:55 GMT

hi,

We waren al een tijd op zoek naar een oplossing om onze Windows applicatie via het internet aan te bieden. Steeds vaker wordt gevraagd om centrale toegang. Probleem was dat er te weinig tijd is om alles naar web om te bouwen. Oplossingen zoals Citrx, VMWare of Terminal Server zijn vooral duur en het gaat maar om een beperkte periode.
Zoals vele onder ons (denk ik) neemt de vraag naar web toe. Los van het feit dat web ook niet zaligmakend is wil je wel een oplossing bieden.

Google is your best friend en in deze ook en kwam ik uit bij Thinstuff, te vinden op....je raad het al http://www.thinstuff.com. Met behulp van Thinstuff maak een een terminal server en zoals op de site vermeld :

Citaat:

With XP/VS Server you can turn Windows XP, Vista, Windows 7, Small Business Server 2003/2008, Windows Server 2003/2008/2008 R2 or Foundation Server 2008 R2 into a full-blown Terminal Server

Ik heb contact met ze gehad en lees zie onderstaande quote (en lees daarna verder)

Citaat:

Dear Peter,

Thank you for your interest in Thinstuff !

Yes - we offer terminal server software called XP/VS Server - which suits to your requirements.
This software also offer remote-app connection and has to be seen as replacement for Microsoft terminal server.
But XP/VS Server can also be installed on desktop operating system.
And at this point I'd like to send you our argumentation regarding Microsoft's Eula:

RDS / TS Cals .... Yes - if you are talking about Windows Server operating systems (Windows Server 2003, Windows Server 2008/2008R2) the Microsoft Terminal Server Licensing process is always required.

On workstation operating systems (XP/Vista/Windows 7) and on the Small Business Server Editions there are no TS-CALs that can be bought.
Of course our software enables multiple concurrent Remote Desktop connections on these operating systems also and the question you're probably interested in is "Is it legal ?"

However, neither Thinstuff nor Microsoft are in any position to say if a software product is legal or not.
That decision can only be made by the judicature of the individual countries.

However we've many customers even in public authorities or from well-known companies (Hewlett Packard, Sixt, BMW...) who are using Thinstuff after the have checked the legal situation.

And - you know that it is always the purchaser's respectively the end user's responsibility to comply with their Windows end-user license agreement and we do not give legal advises.

However, we do share our own point of view of the situation with our customers:

We believe that according to paragraph 1.4 - "Remote Desktop/Remote Assistance/NetMeeting" of the Windows XP EULA it is legal to use Thinstuff XP/VS Server:
"... You may use the Software's Remote Desktop feature (or other software which provides similar functionality for a similar purpose) to access a Workstation Computer Session from any Device provided you acquire a separate Software license for that Device."

And also e.g. the VISTA Ultimate and Business EULAs explicitly allow our type of software in the "Remote access Technologies" paragraph:
"... you may access and use the software installed on the licensed device remotely from another device using remote access technologies as follows ... users may access a session from any device using these technologies, if the remote device is separately licensed to run the software"

Microsoft does not give additional information what that "separate Software license" is exactly called or how it can be acquired.
For Microsoft Terminal Servers that would be a TS-CAL of course but Microsoft does not sell TS-CALs for Windows XP.

And finally also the Small Business Server 2003 EULA explicitly allows remote connections - provided that appropriate CALs are acquired:
"3. ADDITIONAL LICENSING REQUIREMENTS ... You must acquire and assign the appropriate CAL to each device or user that accesses your instances of the server software directly or indirectly. "

Here again from our point of view that appropriate CAL would be a TS-CAL but Microsoft does not sell TS-CALs for SBS2003.

So we believe that the end-users are legally on the safe side to use Thinstuff XP/VS Terminal Server on these operating systems because the EULA allows that kind of software and that right cannot be void just by the fact that Microsoft does not offer an "appropriate" license.

Please note that Thinstuff s.r.o. is not affiliated with and does not represent Microsoft nor sell their products.

Dit wetende nog aanvullende vraag en bevestiging gevraagd:

Citaat:

Hi Mona,

Thanks for the quick response and the explanation. Basicly what you are saying is:

XP/VS server is a replacement of Microsoft Terminal server (MTS)
When running XP/VS server on a Windows 2003/2008/2012 server i need additional Microsoft RDS/TS calls
Whe running XP/VS server on a Windows XP/Windows 7/8 or Small Business server i don't need additional Microsoft RDS/TS calls (because Microsoft doesn't sell additional calls for those operating systems)
So..the trick is to run XP/VS server on desktop operating system or SBS...clever :)

Met hierop onderstaand antwoord :

Citaat:

Dear Peter,

Correct !
Microsoft changed the name for Small Business Server - now they are called "Windows Server 2012 Essentials" :-)
But however - if you deside for Windows 7/8 - SBS 2008/2011 or Essential - no RDS Cals are available and you can use XP/VS Server to achieve concurrent, multiple logins !
And "YES" - XP/VS Server Standard and Professional includes license for TSX RemoteApp for free !
But please note that TSX RemoteApp does not support Windows 8/2012/Essentials!

For these operating systems you have to use Microsoft Feature TS RemoteApp !

Please feel free to contact us if you have any other questions.

Best regards
Mona Lippert-Winkel

Thinstuff s.r.o.
Bahnhofplatz 7/3
2340 M�dling, Austria

Dus zien is geloven en zo Thinstuff ge�nstalleerd op een Windows 7 desktop met TSX RemoteApp. Deze beschikbaar gemaakt voor de buiten wereld.
Wat je vervolgens doet is een .rdp script maken voor je applicatie.
De gebruiker voert dit script uit en hij krijgt direct ALLEEN de applicatie remote aangeboden. Je kunt niet buiten de sessie en bij het sluiten van de applicatie wordt het script direct gesloten.

Voor ons een welkome oplossing om voorlopig de applicatie remote aan te kunnen bieden zodat de gebruiker geen installaties hoeft te doen.
Het script staat achter een portal dus men kan het script makkelijk uitvoeren wanneer het nodig is. Voor � 449,0 heb je onbeperkt aantal connecties, iets dat je in een Citrix of Terminal server omgeving aanzienlijk meer voor kwijt bent.

Ik wilde dit toch even delen met jullie voor diegene die in eenzelfde situatie zitten waar je een Windows applicatie centraal aan wilt bieden of als overbrugging naar een web applicatie. Dit maakt het ook mogelijk of toch in Delphi te blijven ontwikkelen en hoef je mogelijk nog niet naar een web applicaties met alle nadelen van dien. Na het seizoen willen we een test gaan draaien met gebruikers om te kijken hoe de server reageert wanneer je hier met 10-20 gelijktijdige gebruikers op zit. Dit geeft ons in ieder geval de tijd om niet overhaast een web applicatie te bouwen die binnen 6 maanden klaar moet zijn.

Greetz Peter

Order by werkt niet

rsjmeijer — Thu, 06 Jun 2013 10:58:08 GMT

Ik heb een SQL database, waarop ik met de CDS commandtext een query loslaat. De query werkt als ik kijk met de SQL servermanager. Echter in de Delphi omgeving werkt de order by opdracht niet. De volgorde blijft 1234 ipv 4321.

Ik werk met Delphi XE-2 professional en Devart DBExpress

Code:

With DM_MRB.CDS_Order Do Begin

    If Active Then Close;

    CommandText:= 'Select * FROM [TEST123].[dbo].[tbOrder] Where Order_Historisch = ''True'' Order By OrderbonNummer Desc';

    If Active Then Close;

    If not Active Then Open;

end;

Locatie tlb of dll achterhalen

JantjeB — Thu, 06 Jun 2013 10:10:24 GMT

Hoi allen,

Ik zou graag de locatie van een ActiveX (com) dll achterhalen.
De ActiveX is ge�mporteerd, maar ik moet de gebruikende applicatie vertellen waar die dll is gelocaliseerd op de pc, omdat ik de current dir naar daar moet laten verwijzen.

Thanks
Jan

RichEdit vraag

Antoine — Thu, 06 Jun 2013 09:25:39 GMT

Dag allemaal,

Ben weer bezig met mijn chatapp. Ik heb een klein vraagje. Als ik heel veel tekst heb, dan krijg ik heel mooi de mogelijkheid om met de scrollbar naar boven te scrollen. Voeg ik dan weer een line toe, gebeurd er iets vreemds, hij gaat naar de bovenste regel...

Niet de bedoeling natuurlijk bij een chat, daar moet hij netjes naar de onderste regel gaan, of blijven.

Wat is dat voor reactie? Kan ik daar iets aan veranderen? En zo ja, hoe ongeveer?

Hoor het graag!

gr Anton

Onjuiste form grootte bij 'fat client'

Ruud123 — Thu, 06 Jun 2013 07:58:32 GMT

Een gebruiker van mijn applicatie heeft een probleem met de grootte van het hoofdform. Hij schrijft mij:

"Momenteel maken wij gebruik van uw applicatie, nu werkt de applicatie technisch gezien gewoon goed echter hebben we last van het probleem dat een deel van het beeld wordt samengedrukt. Momenteel maken wij gebruik van Windows 7 Enterprise echter doet dit probleem zich alleen voor op de Fat cli�nts en niet op onze Thin cli�nts. Zou u me kunnen vertellen wat wij zouden kunnen doen om dit probleem op te lossen?"

Het meegestuurde screenshot laat zien dat het form iets te smal is, waardoor een button half buiten het venster valt. Ook een statusbar is maar half te zien. Hier kan ik het probleem niet reproduceren, alles is simpelweg goed...
Kennelijk worden de sizeconstraints bij een fat client niet juist ge�nterpreteerd? Weet iemand hier iets meer van misschien, of is er een workaround?

Delphi programmeurs zijn gelukkiger

StephanEggermon — Wed, 05 Jun 2013 17:01:33 GMT

http://codeofrob.com/entries/evented...b-commits.html

Tenminste op github.

Project beginnen in verschillende platformen

Antoine — Wed, 05 Jun 2013 08:31:34 GMT

Hallo,

Ik heb hier een vraag die nergens thuishoort.... Dus post ik hem maar hier...:)

Ik wil met een oud-NLDelphi gast een project opstarten, echt gaaf! Maar nu wil het geval dat we niet op dezelfde platformen werken.

Hij werkt met een MAC en ik met Windows. Hij schrijft overigens al jaren geen Delphi meer, maar het leek hem leuk om dat weer op te pakken..:)

Hoe kan ik dit het beste aanpakken? :confused:
Ik wil wel graag Pacal willen schrijven, en dan wel het liefst gewoon in Delphi van Embarcadero. (ben niet zo'n Lazarus gebruiker...:o)

Ik zit ook nog te zoeken naar een online-versiebeheersysteem.

Alles moet op afstand gebeuren, hij woont 250 km bij mij vandaan..:eek:

Alle tips zijn Welkom! \o/

gr

SQL Probleem

MPH — Tue, 04 Jun 2013 19:46:59 GMT

Hallo allemaal.

Ik heb een probleem met de volgende query

Code:

SELECT

  UserLocaties.*,

  Functies.Functie,

  Teams.Team

FROM Teams

RIGHT JOIN (Functies

  INNER JOIN UserLocaties

    ON Functies.ID = UserLocaties.functieID)

  ON Teams.ID = UserLocaties.teamID;

Continue Open en Close van de query is geen probleem. Nadat ik een wijziging uitvoer, sla ik de gegevens op. Dat werkt zonder problemen. Wil ik echter direct daarna de gegevens bijwerken middels Refresh, dan krijg ik de volgende foutmelding:

Insufficient key column information for Updating or refreshing.

Na toevoegen of wijzigen zijn de gegevens wel gewoon bijgewerkt.

Ik doe ongetwijfeld wat fout in de query, maar ik zie niet in waarom.
Ik ben mijn programma aan het updaten en in mijn oude source werkt het programma zonder problemen. Ik zie niet in waarom ik dit probleem nu krijg.

Kan iemand me hiermee helpen?

Alvast bedankt.

Iconen werkblad naar een TPanel copieren

FrankH — Tue, 04 Jun 2013 14:13:29 GMT

Hallo allemaal,

Ik wil de iconen die op een werkblad staan verzamelen op een TPanel. Elk icoontje krijgt zijn eigen TImage die dan op het panel geplaatst wordt. Mijn probleem hierbij is dat ik niet weet hoe ik moet achterhalen welke iconen er allemaal op een werkblad staan. Verder moet ik dan ook het daarbij behorende pad kunnen achterhalen omdat ik dat ook nodig heb.

Kan iemand mij op weg helpen hoe dat ik die iconen kan krijgen?

Alvast bedankt, Frank

'Blok' tekenen in grid.

Patjuh — Tue, 04 Jun 2013 09:40:52 GMT

Heren,

Ik heb een hele korte vraag, wat ik eigenlijk nog steeds niet echt goed voor elkaar graag en dat betreft het volgende:

Ik zou graag items willen 'groeperen' in een stringgrid/dbgrid.
Indien er een; in dit voorbeeld '#' staat dan moeten deze items 'gegroepeerd' worden.

Ik heb zelf al zitten knutselen met lineto/moveto in het customdrawcell event, maar het resultaat is niet zoals ik zou willen welke te zien is in de bijlage.

Bijlage ter illustratie:

Bijgesloten Thumbnails

FileExistsUTF8 en FileExists

freddie2 — Tue, 04 Jun 2013 09:39:17 GMT

beste specialisten

ik heb een delphi6 project overgezet in lazarus .
in dit projectje komt wordt een aantal opstartvariabelen gebruikt die vastgelegd zijn in een kladblok file, welke in de projectfile wordt opgeslagen.

het blijkt nu dat bij de conversie tevens het volgende gebeurt:

Code:

if FileExistsUTF8(Finifilenaam) { *Converted from FileExists* }then............

de files zijn een .prn files maar wordt niet meer gevonden terwijl deze wel degelijk in de projectfile staat.

Waarom gebeurt dit ?
En hoe kan ik dit uitschakelen ?
want ,tot nu toe , lijkt fileexists in mijn programma gewoon te kunnen werken.

Copy Wallpaper to TImage

FrankH — Tue, 04 Jun 2013 08:43:46 GMT

Hallo,

Ik heb een stukje code gevonden om een TImage als Wallpaper op te slaan. Werkt goed. Nu wil ik echter de wallpaper in een TImage opslaan. Mijn probleem hierbij is dat ik niet kan achterhalen welk plaatje als wallpaper op een pc gebruikt wordt.
Iemand een idee hoe dit te doen?

Alvast bedankt, Frank.

stringgrid.create

Hansvb — Sat, 01 Jun 2013 20:22:29 GMT

Een sullige vraag. Hoe maak je run time een stringgrid aan? Navolgende geeft geen foutmelding, maar toont ook geen stringgrid.

Code:

procedure TForm1.Button3Click(Sender: TObject);

  procedure TMain_Frm_Basis.Button1Click(Sender: TObject);

  var

    stringgrid : TStringgrid;

  begin

    stringgrid := TStringgrid.Create(self);

    stringgrid.Top := 25;

    stringgrid.Left := 416;

    stringgrid.ColCount := 5;

    stringgrid.RowCount := 10;

    stringgrid.Name := 'test';

  end;

end;

Toetsaanslagen buiten Delphi applicatie

NickOnline — Fri, 31 May 2013 22:05:58 GMT

Hey allen,

Ik kreeg het gekke idee om een applicatie te maken waarmee je geluiden hoort bij toetsaanslagen.

Ik heb behoorlijk zitten zoeken op Google naar zogenaamde "hooks", maar ik krijg het daarmee alleen voor elkaar om toetsaanslagen binnen mijn Delphi applicatie te registreren.

Is er ook de mogelijkheid om alle toetsaanslagen te registreren?

Alvast bedankt!

Maak een automatische aanvulling

JantjeB — Fri, 31 May 2013 08:55:27 GMT

Hoi allen,

Ik zou graag een systeem maken zoals de codecompletion in delphi of VS.
Ik heb wel een aantal idee�n ( een lijst-formpje die verschijnt ), maar ik vroeg mij af of er geen componenten bestaan waar ik het direct kan mee doen.

Bedankt
Jan

Ontwikkelen voor Andoid, iOS en Blackberry

PiSymbol — Thu, 30 May 2013 18:41:37 GMT

Ik ben ge�nteresseerd in het ontwikkelen van applicaties voor mobiel en tablet (Android, iOS en Blackberry). Mijn persoonlijke taalvoorkeuren blijven Delphi, C++ en C#. Object Pascal in combinatie met Lazarus lijken uitkomst te bieden. (Helaas biedt Embarcadero nog geen Android ondersteuning)

Nu vroeg ik mij af of iemand op NLDelphi ervaring heeft, wat de succes zijn en of men tegen beperkingen is aangelopen. Alvast bedankt voor jullie reacties.

Sorteren van een DBgrid?

Antoine — Thu, 30 May 2013 07:14:11 GMT

Dag mensen,

Ik heb een dbGrid met een tabel met 15 velden. 2 daarvan zijn 'Naam' en 'Status'. Ik wil in het veld 'Status' het veld 'Naam' gesorteerd hebben (op alfabet). Dus eerst moet het veld 'Status' gefilterd zijn. Die begind dan met bijvoorbeeld de value 'Afgemeld' dat zijn er bijvoorbeeld 15. Binnen die 15 moet dan ook het veld 'Naam' gesorteerd worden.

Ik heb wat zitten zoeken hier en daar, maar echt veel bruikbaars kom ik niet tegen...:(

Kunnen jullie mij een tipje geven?:confused:

Ow ja, ik mag niet in Querys 'rommelen'.:cool:

Hoor graag van u

gr

OO en zo

mesa57 — Wed, 29 May 2013 19:48:33 GMT

Omdat in mijn studententijd OO nog uitgevonden moest worden, snap ik het ook niet zo goed en zit nou met een probleempje.

Ik heb de volgende classes :

TBlockedFile
met o.a. de methode ReadBlock

TFilegroup
-> Bevat een list met TFile

TFile class (TBlockedfile)
-> Bevat een list met TIndex
gebruikt dus de ReadBlock method

TIndex class(TBlockedFile)
gebruikt dus de ReadBlock method

Nu wil ik echter de instances van TBlockedFile gaan beheren in TFileGroup. O.a. daar bepalen of er naar memory of disk geschreven/gelezen gaat worden.

Dan heeft het geen zin om de TFile en Tindex class te inheriten van TBlockFile. Ik had al bedacht dat ik dan een list met TBlockFile instanties in TFileGroup kan opnemen, maar hoe pak ik het nu aan dat TFile en TIndex daar gebruik van kunnen maken ? Waar kan ik de objecten het beste instantieren ?

Of kan ik wellicht beter een heel andere class structuur kiezen ?

Invoer veld webpagina automatisch invullen in TWebBrowser

SaintPier — Sun, 26 May 2013 11:53:48 GMT

Hoi iedereen,

Ik open met TWebBrowser een webpagina waar gebruikers kunnen inloggen.

In het inlog scherm zou ik het veld met de gebruikersnaam zelf willen invullen met een string die ik ergens opgeslagen heb.
Is dit �berhaupt mogelijk en zo ja hoe doe ik dat?

BVD
Peter.

Chat memo

Antoine — Fri, 24 May 2013 09:43:46 GMT

Hallo,

Ben bezig met een klein chatprogrammatje. eigenlijk nu nog in de testfase. Ik ben bijna rond, maar heb nog 1 vraag. Ik heb een TMemo als chat-memo. Verder 1 invoerEdit een naamEdit en een button.

Bij een enter of buttonclick wordt de tekst uit de invoerEdit gekopieerd naar de chat-memo. Gaat goed.

Nu heb ik het zo dat v��r die string van de invoerEdit de string van de naamEdit komt in de chat-memo. Dat gaat ook vlekkeloos.

Wat ik wil is dat ik de style van de naamEdit meeneem naar de chat-memo. Die style is als volgt: Bold en Underline....

Het laatste item krijg ik niet voor elkaar. Iemand een tipje?

Ik zal hier mijn code laten zien:

DELPHI Code:

resourcestring
  GUI_CLOSE_MESS   = 'Thank you for using the chatroom....';
  GUI_CAPT_LBLNAME = 'Subscribe your name';
 
procedure TfrmChatTest.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  ShowMessage(GUI_CLOSE_MESS);
end;
 
procedure TfrmChatTest.FormCreate(Sender: TObject);
begin
  lblName.Caption := GUI_CAPT_LBLNAME;
  edInvoer.AutoSelect := True;
end;
 
function TfrmChatTest.CheckMemoIsEmpty;
begin
  if mmChat.Text = '' then
  result := True;
end;
 
procedure TfrmChatTest.btnGoClick(Sender: TObject);
var
  lText : String;
begin
  lText  := mmCHat.Lines.Text;
 
 if (edInvoer.Text = '') or
    (edName.Text   = '') then
     exit;
 
  if CheckMemoIsEmpty then
  begin
    mmCHat.Lines.Text := lText + edName.Text + ': ' + edInvoer.Text;
    edInvoer.Text := '';
  end
  else
  begin
    mmCHat.Lines.Text := lText + sLineBreak + edName.Text + ': ' + edInvoer.Text;
    edInvoer.Text := '';
  end;
 
end;
 
 
end.

Hoor graag van u...

gr

Smiley in TMemo

Antoine — Fri, 24 May 2013 08:41:18 GMT

Hallo,

Ik wil voor elkaar krijgen dat ik in een TEdit bijvoorbeeld :-) typ, dat ik dan dit: :) te zien krijg in een TMemo..

Het is een soort chat.

Hoor graag van u

gr

Disabled Button probleem.

Antoine — Fri, 24 May 2013 07:40:51 GMT

Dag allemaal,

Even geleden dat ik een technische vraag stelde, maar we zitten hier bijna dagelijks te testen voor de nieuwe release van onze applicatie.

Ik kwam een eigenaardigheid tegen: Ik heb ergens 1 button onderin het form op een panel staan, deze is om bepaalde reden nog even disabled. Als ik dan een andere tabel open op hetzelfde form, komen in de plaats van die ene, drie buttons in het panel te staan, dat zou vloeiend moeten gaan, echter het tekenen van die buttons gaat vreemd. Die ene disabled button gaat door de midden, verdwijnt dan, daarna komen de andere drie buttons te voorschijn. Dat alles duurt niet meer als 1 seconde, maar ik vind het toch de moeite waard om te melden, misschien is er een bugje?

Als jullie dit niet bekent voorkomen, ga ik even in de code duiken...

Hoor graag van jullie...

gr

sqlite conversie

organizer — Thu, 23 May 2013 15:27:06 GMT

Ik ben in de process of converting mijn database van NexusDB naar SQLite.
Aangezien ik er nog nooit eerder mee heb gewerkt, heb ik een vraag.

INT64 = dat een BIGINT, INT(8) of gewoon INT

Thanks :)

Capgemini en Politieacademie rollebollend over straat

evert — Tue, 21 May 2013 20:49:27 GMT

Linkje

Het is voor buitenstaanders een complexe zaak om te beoordelen, maar al met al vrees ik dat dit alles de reputatie van Capgemini niet ten goede komt.

TMaskEdit.Text wijzigen

LGo — Tue, 21 May 2013 20:01:42 GMT

IN een Groep box van het type TGroupbox heb ik een aantal(bvb 30) velden staan (3 kolommen van 10 rijen) telkens van het type TMaskEdit: MEKapRent1_2 ...MEKapRent30_2. Het masker doet een gebruiker een rentevoet ingeven van 00,00 % tot 99,99 %. Telkens de gebruiker ��n veld wijzigt zorgt een procedure bvb. MEKapRent1_2Change ervoor dat al de volgende velden dezelfde rentevoet krijgen. Op die manier moet ik 29 procedures schrijven, voor elke veld 1. Kan ik die 29 procedures vervangen door ��n procedure?

Ik gebruik de volgende code:

Code:

procedure TFoToepasIntrest.MEKapRent1_2Change(Sender: TObject);

Var

I: Integer;

RentevoetText: String;

begin

  If Wijzigen Then

  Begin

    I:=1;

    RentevoetText:=MEKapRent1_2.Text;

    KapRentevoetenAanvullen(I, RentevoetText);

  End;

end;

Code:

Procedure KapRentevoetenAanvullen(I: Integer; RentevoetText: String);

Var

  J: Integer;

  Procent: String;

Begin

  For J:=I+1 To StrToInt(FoToepasIntrest.CBDuur2.Text) do

  Begin

    Case J Of

    1: FoToepasIntrest.MeKapRent1_2.Text:=RentevoetText;

    2: FoToepasIntrest.MeKapRent2_2.Text:=RentevoetText;

    3: FoToepasIntrest.MeKapRent3_2.Text:=RentevoetText;

    4: FoToepasIntrest.MeKapRent4_2.Text:=RentevoetText;

    5: FoToepasIntrest.MeKapRent5_2.Text:=RentevoetText;

    6: FoToepasIntrest.MeKapRent6_2.Text:=RentevoetText;

    7: FoToepasIntrest.MeKapRent7_2.Text:=RentevoetText;

    8: FoToepasIntrest.MeKapRent8_2.Text:=RentevoetText;

    9: FoToepasIntrest.MeKapRent9_2.Text:=RentevoetText;

    10: FoToepasIntrest.MeKapRent10_2.Text:=RentevoetText;

    11: FoToepasIntrest.MeKapRent11_2.Text:=RentevoetText;

    12: FoToepasIntrest.MeKapRent12_2.Text:=RentevoetText;

    13: FoToepasIntrest.MeKapRent13_2.Text:=RentevoetText;

    14: FoToepasIntrest.MeKapRent14_2.Text:=RentevoetText;

    15: FoToepasIntrest.MeKapRent15_2.Text:=RentevoetText;

    16: FoToepasIntrest.MeKapRent16_2.Text:=RentevoetText;

    17: FoToepasIntrest.MeKapRent17_2.Text:=RentevoetText;

    18: FoToepasIntrest.MeKapRent18_2.Text:=RentevoetText;

    19: FoToepasIntrest.MeKapRent19_2.Text:=RentevoetText;

    20: FoToepasIntrest.MeKapRent20-2.Text:=RentevoetText;

    21: FoToepasIntrest.MeKapRent21_2.Text:=RentevoetText;

    22: FoToepasIntrest.MeKapRent22_2.Text:=RentevoetText;

    23: FoToepasIntrest.MeKapRent23_2.Text:=RentevoetText;

    24: FoToepasIntrest.MeKapRent24_2.Text:=RentevoetText;

    25: FoToepasIntrest.MeKapRent25_2.Text:=RentevoetText;

    26: FoToepasIntrest.MeKapRent26_2.Text:=RentevoetText;

    27: FoToepasIntrest.MeKapRent27_2.Text:=RentevoetText;

    28: FoToepasIntrest.MeKapRent28_2.Text:=RentevoetText;

    29: FoToepasIntrest.MeKapRent29_2.Text:=RentevoetText;

    30: FoToepasIntrest.MeKapRent30_2.Text:=RentevoetText;

    End;

  End;

End;

Achtergrond plaatje Listbox

Ops1966 — Tue, 21 May 2013 18:38:11 GMT

Misschien en oud verhaal maar hoe kan ik een achtergrond plaatje in een TListbox stoppen. En dan als de lijst leeg is. Het weergeven van een plaatje is ook al niet goed te doen.
Ik heb al WM_ERASEBKGND en DrawItem override maar niets helpt. En bij CNDrawItem lukt het niet om het wissen tegen te gaan?

Code:

{

  Juli 2010

  Ed's Listbox. Een eigen Listbox met wat nieuwe opties.



  property ScrollBar:     Standaard scrollbar aan of uit zetten. Alleen bij OnCreate.

  property FocusRect:     Bij selecteren van een Item kader (stippellijn) uitzetten.

  property WheelScroll:   Aantal Items scrollen bij Wheelmuis knop.

  property Layout:        Als extra toegevoegd. Kan je extern gebruiken indien gewenst.

  property OnScroll:      Algemeen Event bij veranderen selectie.

                          Zo hoef je niet meerdere events (KeyUp, MouseUp, MouseWheel) apart te gebruiken

  property OnMouseWheel:  Een handige uitbreiding.

  property TabStop:       Bij True worden de Cursortoetsen Left en Right afgehandeld

  property OnKeyLeft:     Event indien TabStop en VK_LEFT

  property OnKeyRight:    Event indien Tabstop en VK_RIGHT



}

unit EdListbox;



interface



uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

  StdCtrls, Extctrls, Buttons, PngImage;



type

  TEdListBox = class(TListBox)

  private

    fPicture: TPngImage;

    fBackGround: Boolean;

    fCurPos: Integer;

    fWheelScroll: Integer;

    fScrollbar: Boolean;

    fFocusRect: Boolean;

    fOnScroll: TScrollEvent;

    fOnTouchScreen: TNotifyEvent;

    fLayout: TTextLayout;

    fOnKeyLeft: TNotifyEvent;

    fOnKeyRight: TNotifyEvent;

    fGroup: Integer;

    function MouseInControl: Boolean;

    procedure SetPicture(Value: TPngImage);

    procedure SetBackGround(Value: Boolean);

    procedure SetLayout(Value: TTextLayout);

    procedure CNDrawItem(var Message: TWMDrawItem); message CN_DRAWITEM;

    procedure CMMouseWheel(var Message: TCMMouseWheel); message CM_MOUSEWHEEL;

    procedure WMGetDlgCode(var Msg: TWMGetDlgCode); message WM_GETDLGCODE;

    procedure WMVScroll(var Msg: TMessage); message WM_VSCROLL;

    procedure WMHScroll(var Msg: TMessage); message WM_HSCROLL;

    procedure CMMouseEnter(var Msg: TMessage); message CM_MouseEnter;

    procedure CMMouseLeave(var Msg: TMessage); message CM_MouseLeave;

  protected

    fAllowTouchEvent: Integer;

    procedure CreateParams(var Params: TCreateParams); override;

    procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;

    procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;

    procedure WMKeyUp(var msg: TWMKeyUp); message WM_KEYUP;

    procedure WMKeyDown(var msg: TWMKeyDown); message WM_KEYDOWN;

    procedure WMDblClick(var msg: TWMLButtonDblClk); message WM_LBUTTONDBLCLK;

    procedure DragOver(Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); override;

    { Add a handler for the WM_ERASEBKGND message

    procedure StopFlicker(var Msg: TWMEraseBkGnd); message WM_ERASEBKGND; }

    procedure DrawItem(Index: Integer; Rect: TRect; State: TOwnerDrawState); override;

  Public

    procedure ResetTouchScreen;

    procedure KeyDown(var Key: Word; Shift: TShiftState); override;

    procedure KeyPress(var Key: Char); override;

    procedure KeyUp(var Key: Word; Shift: TShiftState); override;

    constructor Create(AOwner: TComponent); override;

    destructor Destroy; override;

  published

    property Picture: TPngImage read fPicture write SetPicture;

    property BackGround: Boolean read fBackground write SetBackGround;

    property Group: Integer read FGroup write fGroup;

    property ScrollBar: Boolean read fScrollbar write fScrollbar;

    property FocusRect: Boolean read fFocusRect write fFocusRect;

    property WheelScroll: Integer read fWheelScroll write fWheelScroll; // Aantal regels scrollen met MouseWheel!

    property OnScroll: TScrollEvent read FOnScroll write FOnScroll;

    property OnTouchScreen: TNotifyEvent read fOnTouchScreen write fOnTouchScreen;

    property Layout: TTextLayout read fLayout write SetLayout default tlTop;

    property OnKeyLeft: TNotifyEvent read fOnKeyLeft write fOnKeyLeft;

    property OnKeyRight: TNotifyEvent read fOnKeyRight write fOnKeyRight;

    property OnMouseWheel;

    property OnDblClick;

    property OnClick;

  end;



procedure Register;



implementation



procedure Register;

begin

  RegisterComponents('Eduard', [TEdListbox]);

end;



procedure TEdListBox.CreateParams(var Params: TCreateParams);

begin

  {

  inherited;

  With Params Do Begin

    If (fScrollBar = False) Then Style := Style and not WS_VSCROLL;

  End;

  }

  inherited CreateParams(Params);

  Params.Style := Params.Style and not WS_VSCROLL;

  //Params.ExStyle := Params.ExStyle or WS_EX_TRANSPARENT;

end;



{

procedure TEdListBox.StopFlicker(var Msg: TWMEraseBkGnd);

begin

  SetBkMode (Msg.DC, TRANSPARENT);

  Msg.Result := 1;

  inherited;

end;

}



{

Sorry. It was a mistake. I think what TListView has a BackGroundImage property.

May be easy to create a new Component whith own draw code.

It must look like this:



On WM_ERASEBKGND :



  r := ClientRect;

  rgn := CreateRectRgnIndirect(r);

  SelectClipRgn(Canvas.Handle, rgn);

  Canvas.StretchDraw(r, FPicture.Bitmap);

  SelectClipRgn(Sender.Canvas.Handle, 0);

  DeleteObject(rgn);





On WM_DRAWITEM:



    Flags := DrawTextBiDiModeFlags(DT_SINGLELINE or DT_VCENTER or DT_NOPREFIX);

    SetBkMode(Canvas.Handle, TRANSPARENT);

    DrawText(Canvas.Handle, PChar(Text), Length(Text), Rect, Flags);

}



{------------------------------------------------------------------------------}



procedure TEdListBox.DrawItem(Index: Integer; Rect: TRect; State: TOwnerDrawState);

begin

  {

  if (fPicture.Empty = False) and (fBackground)

    then Canvas.StretchDraw(ClientRect, fPicture);

  }

  inherited DrawItem(Index, Rect, State);  // Komt niet hier bij 0 items?

end;



procedure TEdListBox.CNDrawItem(var Message: TWMDrawItem);

var

  State: TOwnerDrawState;

begin

  with Message.DrawItemStruct{$IFNDEF CLR}^{$ENDIF} do

  begin

    State := TOwnerDrawState(LoWord(itemState));

    Canvas.Handle := hDC;

    Canvas.Font := Font;

    Canvas.Brush := Brush;



   

      if (Integer(itemID) >= 0) and (odSelected in State) then

      begin

        Canvas.Brush.Color := clHighlight;

        Canvas.Font.Color := clHighlightText

      end;

    // end;



    if Integer(itemID) >= 0 then begin

      DrawItem(itemID, rcItem, State);

      // if (odFocused in State) then DrawFocusRect(hDC, rcItem);

    end else begin

      Canvas.FillRect(rcItem);

      {

      if (fPicture.Empty = False) and (fBackground)

        then Canvas.Draw(0, 0, fPicture)

          else Canvas.FillRect(rcItem);

      }

    end;



    if (fFocusRect) then

      if (odSelected in State) and (Focused) {and not TStyleManager.IsCustomStyleActive} then

        DrawFocusRect(hDC, rcItem);



    // WERKT NU GOED!!!!



    Canvas.Handle := 0;

  end;

end;



function TEdListBox.MouseInControl: Boolean;

var

  P: TPoint;

begin

  GetCursorPos(P);

  Result := not (FindDragTarget(P, True) = Self);

end;



procedure TEdListBox.CMMouseWheel(var Message: TCMMouseWheel);

begin

  if MouseInControl then Exit;

  fCurPos := ItemIndex;

  if (TCMMouseWheel(message).wheelDelta) < 0 then begin

    if (fCurPos < Count) then fCurPos := fCurPos + fWheelScroll; //3;

    if (fCurPos > Count - 1) then fCurPos := Count - 1;

  end else begin

    if (fCurPos > 0) then fCurPos := fCurPos - fWheelScroll; //3;

    if (fCurPos < 0) then fCurPos := 0;

  end;

  ItemIndex := fCurPos;

  POSTMESSAGE(Self.Handle, WM_user + 1001, 0, 0);

  if assigned(fOnScroll) then fOnScroll(Self, ScPosition, fCurPos);

  inherited;

end;



procedure TEdListBox.MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

begin

  fCurPos := ItemIndex;

  if assigned(fOnScroll) then fOnScroll(Self, ScPosition, fCurPos);

  inherited;

end;



procedure TEdListBox.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

begin                                  

  Inc(fAllowTouchEvent); {Click}

  inherited;

end;



procedure TEdListBox.WMDblClick(var msg: TWMLButtonDblClk);

begin

  Inc(fAllowTouchEvent);

  inherited;

end;



procedure TEdListBox.WMKeyDown(var msg: TWMKeyDown);

begin

  if (TabStop) and (msg.CharCode = VK_LEFT) then fOnKeyLeft(Self)

  else if (TabStop) and (msg.CharCode = VK_RIGHT) then fOnKeyRight(Self); {else inherited}

  inherited;

end;



procedure TEdListBox.WMKeyUp(var msg: TWMKeyUp);

begin

  fCurPos := ItemIndex;

  if assigned(fOnScroll) then fOnScroll(Self, ScPosition, FCurPos);

  inherited;

end;



procedure TEdListBox.ResetTouchScreen;

begin

  fAllowTouchEvent := 0;

end;



constructor TEdListBox.Create(AOwner: TComponent);

begin

  inherited Create(AOwner);

  fPicture := TPngImage.Create;

  fBackGround := False;

  fAllowTouchEvent := 0;

  fScrollbar := True;

  fFocusRect := True;

  fCurPos := 0;

end;



destructor TEdListbox.Destroy;

begin

  fPicture.Free;

  inherited Destroy;

end;



procedure TEdListBox.WMGetDlgCode(var Msg: TWMGetDlgCode);

begin

  {if (TabStop) then }

  Msg.Result := DLGC_WANTARROWS;

end;



procedure TEdListBox.WMVScroll(var Msg: TMessage);

begin

  inherited;

end;



procedure TEdListbox.WMHScroll(var Msg: TMessage);

begin

  inherited;

end;



procedure TEdListBox.CMMouseEnter(var Msg: TMessage);

begin

  fAllowTouchEvent := 0;

  inherited;

end;



procedure TEdListBox.CMMouseLeave(var Msg: TMessage);

begin

  if (fAllowTouchEvent = 1) then begin

    if assigned(fOnTouchScreen) then fOnTouchScreen(Self);

  end;

  inherited;

end;



procedure TEdListbox.KeyPress(var Key: Char);

begin

  inherited;

  if (Key = #32) then Key := #0; // SpeedSearch 'Spatie' uitschakelen!

  (*

    if (Key <> #13) then Key := #0; // SpeedSearch uitschakelen!

  *)

end;



procedure TEdListBox.KeyDown(var Key: Word; Shift: TShiftState);

begin

  inherited;

end;



procedure TEdListBox.KeyUp(var Key: Word; Shift: TShiftState);

begin

  inherited;

end;



(*



private

    FSearchText: String;

    FSearchTickCount: Longint;



procedure TPopupListbox.Keypress(var Key: Char);

var

  TickCount: Integer;

begin

  case Key of

    #8, #27: FSearchText := '';

    #32..High(Char):

      begin

        TickCount := GetTickCount;

        if TickCount - FSearchTickCount > 2000 then

          FSearchText := '';

        FSearchTickCount := TickCount;

        if Length(FSearchText) < 32 then

          FSearchText := FSearchText + Key;

        SendTextMessage(Handle, LB_SelectString, WORD(-1), FSearchText);

        Key := #0;

      end;

  end;

  inherited Keypress(Key);

end;



*)



procedure TEdListBox.DragOver(Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);

begin

  inherited;

end;



{------------------------------------------------------------------------------}



procedure TEdListBox.SetLayout(Value: TTextLayout);

begin

  if fLayout <> Value then

  begin

    fLayout := Value;

    Invalidate;

  end;

end;



procedure TEdListBox.SetPicture(Value: TPngImage);

begin

  if (fPicture <> Value) then

  begin

    fPicture.Assign(Value);

    Invalidate;

  end;

end;



procedure TEdListBox.SetBackGround(Value: Boolean);

begin

  if (fBackGround <> Value) then

  begin

    fBackGround := Value;

    Invalidate;

  end;

end;



end.

MSSQL 2012 - Foreign key met Reference naar fixed value

Norrit — Tue, 21 May 2013 15:07:30 GMT

TSQL voor MSSQL 2012

Volgende wil ik eigenlijk:

Code:

CONSTRAINT [FK_Groente] FOREIGN KEY ([ExternalReference],[ExternalId]) REFERENCES [Groente](1,[Id])

Ik heb dus een tabel waar ik 3 kolommen in heb, kolom 1 is de referentie naar het hoofditem (bijv. Eten)
Kolom 2 is de externe referentie tabel (1=Tabel groente, 2=Tabel fruit)
Kolom 3 is het id in de tabel groente of fruit

Ik wil dus een foreign keys voor beide items, 1 voor groente en 1 voor fruit

Nu weet ik dat ik dit kan oplossen door in mijn tabel groente een kolom met default 1 op te nemen en in tabel fruit een kolom met default 2.
Ik snap gewoon niet dat er geen syntax is die deze waarde fixed mee kan geven (zoals het voorbeeld waarbij ik die 1 probeer te referencen