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...
Type: Posts; User: ActiveS; Keyword(s):
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...
Na lang zwoegen heb ik een werkende versie. Alleen hij flikkert een beetje.
unit Unit1;
interface
uses
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...
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...
Ik heb hier wat links met informatie:
Deze link omschrijft dat er in FireBird 4 sprake is van een connection pool
...
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...
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...
Dankjewel.
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...
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...
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...
Helemaal mee eens zo ga ik het ook doen.
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...
Bedankt!
constructor TTekstStijl.Create(var Wrapped: TTekst);
begin
inherited Create(nil);
FWrapped := Wrapped;
Wrapped := nil;
end;
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...
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;
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...
Bedankt voor het meedenken. Ik heb nu een mooie basis voor ingewikkeldere componenten.
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...
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...
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.
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...
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;
...
type
TMyComponent = class(TComponent)
public
FSubComponent: TComponent;
FSubComponent2: TComponent;
public
constructor Create(AOwner:TComponent); override;
end;
procedure...
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...