Search:

Type: Posts; User: ActiveS; Keyword(s):

Page 1 of 5 1 2 3 4

Search: Search took 0.08 seconds.

  1. De oorspronkelijke versie die ik had, werkt toch...

    De oorspronkelijke versie die ik had, werkt toch net iets beter:


    RedrawWindow(Handle, @R, 0, RDW_INVALIDATE or RDW_UPDATENOW or RDW_ALLCHILDREN);

    Ik heb ook jouw oplossing geprobeerd met @R...
  2. Na lang zwoegen heb ik een werkende versie....

    Na lang zwoegen heb ik een werkende versie. Alleen hij flikkert een beetje.




    unit Unit1;

    interface

    uses
  3. Op https://tips.delphidabbler.com/tips/74.html...

    Op https://tips.delphidabbler.com/tips/74.html staat How to create components with a transparent background.

    Alleen de events moeten nog even gekoppeld worden.
    procedure...
  4. Verplaatbare vorm voor alle andere voorwerpen

    8259

    In Delphi wil ik een rechthoek kunnen verplaatsen met een transparante binnenkant en hij moet helemaal vooraan komen.
    Als ik een TShape neem dan kan ik zo'n rechthoek makkelijk maken en als...
  5. Ik heb hier wat links met informatie: Deze...

    Ik heb hier wat links met informatie:

    Deze link omschrijft dat er in FireBird 4 sprake is van een connection pool
    ...
  6. Het probleem is opgelost, ik heb...

    Het probleem is opgelost, ik heb oQry.ApplyUpdates; vervangen door oQry.Post.
    En oQry.CachedUpdates := True en de oQry.CommitUpdates weggehaald. Nu hoef ik niet bij iedere iteratie Close en Open te...
  7. AutoInc field bij iedere iteratie Close en Open

    Hallo,

    Ik heb hieronder een werkend voorbeeld van een thread die meerdere bitmaps aan een tabel toevoegd. Maar ik twijfel over de snelheid. Bij iedere regel die ik toevoeg moet ik de de Query...
  8. Dankjewel.

    Dankjewel.
  9. Ik denk dat de opzet van de code waar ik dit...

    Ik denk dat de opzet van de code waar ik dit topic mee begon gewoon niet goed was, ik heb het gebaseerd op een voorbeeld uit een boek over design patterns. De class TTekstStijl is de decorator waar...
  10. Wat ik er van begrijp is dat je het te decoreren...

    Wat ik er van begrijp is dat je het te decoreren object meegeeft aan de creator
    en vervolgens voer je van de decorator de method uit die de daadwerkelijke decoratie uitvoert, in dit geval...
  11. Hallo jkuiper, Ik heb een boek over Design...

    Hallo jkuiper,

    Ik heb een boek over Design Patterns voor Delphi en er staat een voorbeeld in hoe een Decorator werk en daar had ik mijn code op gebasseerd, dat riep bij mij vragen op vandaar dat...
  12. Helemaal mee eens zo ga ik het ook doen.

    Helemaal mee eens zo ga ik het ook doen.
  13. Ja dat is het ook. Maar ik weet geen manier om...

    Ja dat is het ook. Maar ik weet geen manier om deze dubbele variabelen te voorkomen.
    Ik dacht aanvankelijk dat als je Wrapped op nil zet dat dan FWrapped ook gelijk nil zou zijn, maar dat bljikt dus...
  14. Bedankt! constructor...

    Bedankt!



    constructor TTekstStijl.Create(var Wrapped: TTekst);
    begin
    inherited Create(nil);
    FWrapped := Wrapped;
    Wrapped := nil;
    end;
  15. Je hebt gelijk, maar ik kan nog wel GeefTekst...

    Je hebt gelijk, maar ik kan nog wel GeefTekst aanroepen.
    Maak ik van TTekst een TPanel dan kan kan ook GeefTekst aanroepen, alleen de Parent kan ik niet instellen. (dat heb ik geprobeerd, dan krijg...
  16. Bedankt voor je bericht. Ik kreeg geen memoryleak...

    Bedankt voor je bericht. Ik kreeg geen memoryleak omdat het object nog steeds bestaat.


    Ik gebruik in destructor


    TTekstStijl.Destroy;
    begin
    FreeAndNil(FWrapped);
    inherited Destroy;
  17. Een object een ander object laten verwijderen lukt niet

    Hallo,

    Ik heb een object TTekstStijl die een simpele Decorator moet voorstellen.
    En die maakt hoofdletters van een string en dat werkt goed

    Ik geef een TTekst mee en die moet hij als hij...
  18. Bedankt voor het meedenken. Ik heb nu een mooie...

    Bedankt voor het meedenken. Ik heb nu een mooie basis voor ingewikkeldere componenten.
  19. Bedankt voor de tips. Ik heb Width en Height...

    Bedankt voor de tips. Ik heb Width en Height vervangen door SetBounds. Omdat er dan maar 1 keer invalidate wordt aangeroepen i.p.v 2 keer.
    Ik heb Width en Height uit Paint gehaald en in de vorm van...
  20. Bedankt voor de reactie, het bracht me op een...

    Bedankt voor de reactie, het bracht me op een idee.

    Bij het constructen van de component heb ik de Width aangepast zodat de Paint afgaat, nu werkt alles naar behoren.

    In de setTekst wordt...
  21. Replies
    6
    Views
    3,825

    http://www.bvbcode.com/code/37ghxe42-1643402 ...

    http://www.bvbcode.com/code/37ghxe42-1643402

    Werkt om te bepalen hoe de foto gedraaid is.

    Je moet dan nog zelf de interne bitmap met code roteren en daarna geroteerd opslaan als jpg.
  22. Automatisch painten van een nieuwe component. Verschil Component Palette en Runtime

    Hallo,

    Ik heb een component gemaakt die ik vanaf het componentpalette op mijn form kan plaatsen. Direct bij plaatsen wordt de Paint method aangeroepen zonder dat ik dat expliciet moet opgeven in...
  23. Het is gelukt uiteindelijk Dankzij de...

    Het is gelukt uiteindelijk Dankzij de stackoverflow link. Hieronder staat de code. Het zit hem in de SetNonVisualPos procedure.

    Bedankt voor de hulp!


    unit unitTComponentAfstammeling;
    ...
  24. type TMyComponent = class(TComponent) ...

    type
    TMyComponent = class(TComponent)
    public
    FSubComponent: TComponent;
    FSubComponent2: TComponent;
    public
    constructor Create(AOwner:TComponent); override;
    end;

    procedure...
  25. Wat ik wil is dat je in designtime in 1 keer...

    Wat ik wil is dat je in designtime in 1 keer meerdere TComponents op je form kan plaatsen die dan netjes naast elkaar staan.
    Bijvoorbeeld. een TADOConnection, een TADOQuery en een TDataSource netjes...
Results 1 to 25 of 107
Page 1 of 5 1 2 3 4