@Golez: ja besluit staat vast. proef (niet ongevaarlijke) negativitiet bij mensen die ik hoog achtte. het spijt me. graag verwijderen inclusief alle posts wanneer dat mogelijk is. vaart u allen wel.
Type: Posts; User: Anoniem; Keyword(s):
@Golez: ja besluit staat vast. proef (niet ongevaarlijke) negativitiet bij mensen die ik hoog achtte. het spijt me. graag verwijderen inclusief alle posts wanneer dat mogelijk is. vaart u allen wel.
genoeg nldelphi te verlaten. @Golez, wil je me a.u.b. verwijderen?
een vrij en gelukkig vaccinloos nieuwjaar gewenst :-)
edit: voor de pro-vaxxers: ik sterf liever in mijn eigen longpus of krijg liever de kogel dan dit rna vaccin te nemen. verder ga ik er niet op...
een vrij en gelukkig vaccinloos nieuwjaar gewenst :-)
ik gebruik TryStrToFloat om een bestand in te lezen.
Omdat dit uit een excel export komt wil ik floats flexibel inlezen. De decimalseparator moet wel een komma zijn.
1023,89
1.023,89
Hoe kan...
Verander geen Width of Height in de Paint method.
Maar zoals @Golez zegt in de SetText method.
Als een repaint nodig is, roep dan Invalidate() aan.
Het is te beperkend. Ik ga de DIBSection eruit gooien en een font-renderer zoeken. Dat is eigenlijk het enige waar ik de dibsection voor nodig heb.
- ik wil ook GetSystemInfo gebruiken. Dit was een test.
- de granulariteit op mijn computer is 64K.
- de log (log naar memo op form) was om te kijken of de resulterende pointer inderdaad op de...
Even een reactie op een antieke post: Vcl.GraphUtil.DrawTransparentBitmap() houdt rekening met het alpha channel van de pixels in een 32 bits bitmap.
Yep die gaat goed. Jammer dat het zo ingewikkeld moet met die filemapping. Er is helaas ook geen alternatief voor CreateDIBSection. Heel internet al afgestroopt.
yep
Form.Main.pas.580: if not p.HasValue then begin
0068DAD8 837DCC00 cmp dword ptr [ebp-$34],$00
0068DADC 7510 jnz $0068daee
Form.Main.pas.584: if p = nil then begin...
yep ik weet dat ik een nativeint moet gebruiken.
getlasterror geeft nu 5 (ERROR_ACCESS_DENIED), wanneer ik 65536 bytes alloceer ipv 20.
De functie heb ik ptruint uint van gemaakt. Adres(a) deugt. freemem gaat ook goed. Als de functie slaagt wil ik daarna CreateDIBSection(....., hSection=hMapfile) aanroepen en dan hopen dat deze GEEN...
Thanks! Handige routine.
Maar nu krijg ik error 487: ongeldig adres. de pointer (result van allocatealigned) alignment is op 65536 dus krijg niet meer de 1032 error.
64K ik zag het. wow ok. dat maakt deze functie speciaal :-)
dus het pointer adres mod 65536 = 0.
Dat is volgens mij niet te doen.
mypointer is een stuk (door mijn applicatie gereserveerd) geheugen met 32 bits pixels.
jah... dat is mijn vraag :-)
Ik dacht het te hebben maar ik krijg een windows last error:
ERROR_MAPPED_ALIGNMENT = 1132;
Dat betekent (denk ik) dat MyPointer niet op een bepaalde afronding van een adres begint.
What...
De typecasting is illegaal. je hebt een classe TApprover en die kun je niet zomaar typecasten naar een andere klasse.
Getest en dit lijkt legaal te zijn, ook bij nil :-)
type
TPointerHelper = record Helper for Pointer
function HasValue: Boolean; inline;
end;
function TPointerHelper.HasValue:...
Ik ben nogal bezig met windows GDI handles en objects. CreateDC, CreateObject.
Vaak gebruik ik in debug mode de optie ReportMemoryLeaksOnShutDown.
Maar de GDI neemt ie natuurlijk niet mee.
Is er...
static class in de main
TComplex = class
public
type
TEllipseProc = procedure(dst: TBmp; x1, y1, x2, y2: integer; const lineColor, fillColor: TPixel; skipBorder: boolean;...
'Eric' <> 'Eric '
We leven toch niet meer in de DBase tijd zeg...
Klopt en eerlijk gezegd: circulair vind ik ook niet echt mooi.
Maar soms vind ik het wel beperkend qua indeling. Bij elkaar horende classes moeten in 1 unit wat niet altijd even leuk of wenselijk is...
@Golez inderdaad een idee het proberen waard.
Het splitsen is om hele lange gecompliceerde routines van een class in een aparte unit te zetten. Maar eigenlijk zijn ze onderdeel van de hoofdclass.