rendered paste body.section .text
.balign 4
# [352] begin
.globl STDCTRLS_TCUSTOMLABEL_$__PAINT
STDCTRLS_TCUSTOMLABEL_$__PAINT:
.stabs "TCUSTOMLABEL__PAINT:F6",36,0,345,STDCTRLS_TCUSTOMLABEL_$__PAINT
.stabs "$t:p104",160,0,0,-44
.stabs "TR:111",160,0,347,-59
.stabs "R:41",160,0,348,-76
.stabs "TEXTLEFT:8",160,0,349,-80
.stabs "TEXTTOP:8",160,0,349,-84
.stabs "LTEXTWIDTH:8",160,0,350,-88
.stabs "LTEXTHEIGHT:8",160,0,350,-92
.stabs "B:81",160,0,351,-96
# Temps allocated between r11-176 and r11-96
.stabs "./include/",132,0,0,.Lf174
.stabs "customlabel.inc",132,0,0,.Lf174
.Lf174:
.stabn 68,0,352,.Ll1282 - STDCTRLS_TCUSTOMLABEL_$__PAINT
.Ll1282:
mov r12,r13
stmfd r13!,{r4,r5,r6,r7,r11,r12,r14,r15}
sub r11,r12,#4
sub r13,r13,#184
# Var $self located at r11-44
# Var TR located at r11-59
# Var R located at r11-76
# Var TextLeft located at r11-80
# Var TextTop located at r11-84
# Var lTextWidth located at r11-88
# Var lTextHeight located at r11-92
# Var b located at r11-96
str r0,[r11, #-44]
.stabn 68,0,352,.Ll1283 - STDCTRLS_TCUSTOMLABEL_$__PAINT
.Ll1283:
mov r0,#0
str r0,[r11, #-176]
sub r2,r11,#108
sub r1,r11,#148
mov r0,#1
bl FPC_PUSHEXCEPTADDR
bl FPC_SETJMP
str r0,[r11, #-152]
cmp r0,#0
bne .Lj4040
.stabn 68,0,353,.Ll1284 - STDCTRLS_TCUSTOMLABEL_$__PAINT
.Ll1284:
# [353] R := Rect(0,0,Width,Height);
ldr r0,[r11, #-44]
ldr r0,[r0, #200]
str r0,[r11, #-156]
ldr r0,[r11, #-44]
ldr r3,[r0, #548]
mov r2,#0
mov r1,#0
sub r0,r11,#172
ldr r4,[r11, #-156]
str r4,[r13]
bl CLASSES_RECT$LONGINT$LONGINT$LONGINT$LONGINT$$RECT
sub r2,r11,#76
sub r3,r11,#172
mov r0,#16
.Lj4055:
ldrb r1,[r3], #1
subs r0,r0,#1
strb r1,[r2], #1
bne .Lj4055
.stabn 68,0,354,.Ll1285 - STDCTRLS_TCUSTOMLABEL_$__PAINT
.Ll1285:
# [354] With Canvas do begin
ldr r0,[r11, #-44]
ldr r5,[r0, #568]
.stabn 68,0,355,.Ll1286 - STDCTRLS_TCUSTOMLABEL_$__PAINT
.Ll1286:
# [355] Color := Self.Color;
mov r4,r5
ldr r0,[r11, #-44]
ldr r1,[r0, #136]
mov r0,r4
bl GRAPHICS_TCANVAS_$__SETCOLOR$TGRAPHICSCOLOR
.stabn 68,0,356,.Ll1287 - STDCTRLS_TCUSTOMLABEL_$__PAINT
.Ll1287:
# [356] Font := Self.Font;
mov r4,r5
ldr r0,[r11, #-44]
ldr r1,[r0, #196]
mov r0,r4
bl GRAPHICS_TCANVAS_$__SETLAZFONT$TFONT
.stabn 68,0,357,.Ll1288 - STDCTRLS_TCUSTOMLABEL_$__PAINT
.Ll1288:
# [357] if Color<>clNone then
mov r4,r5
mov r0,r4
bl GRAPHICS_TCANVAS_$__GETCOLOR$$TGRAPHICSCOLOR
mvn r1,#-536870912
cmp r0,r1
bne .Lj4070
b .Lj4071
.Lj4070:
.stabn 68,0,358,.Ll1289 - STDCTRLS_TCUSTOMLABEL_$__PAINT
.Ll1289:
# [358] FillRect(R);
mov r4,r5
sub r1,r11,#76
mov r0,r4
mov r2,r4
ldr r2,[r2]
ldr r6,[r2, #376]
mov r14,r15
mov r15,r6
.Lj4071:
.stabn 68,0,383,.Ll1290 - STDCTRLS_TCUSTOMLABEL_$__PAINT
.Ll1290:
# [383] FillChar(TR,SizeOf(TR),0);
mov r2,#0
mov r1,#15
sub r0,r11,#59
bl SYSTEM_FILLCHAR$formal$LONGINT$BYTE
.stabn 68,0,384,.Ll1291 - STDCTRLS_TCUSTOMLABEL_$__PAINT
.Ll1291:
# [384] b := Self.Alignment;
ldr r0,[r11, #-44]
bl STDCTRLS_TCUSTOMLABEL_$__GETALIGNMENT$$TALIGNMENT
str r0,[r11, #-96]
.stabn 68,0,385,.Ll1292 - STDCTRLS_TCUSTOMLABEL_$__PAINT
.Ll1292:
# [385] tr.Alignment := b;
sub r1,r11,#59
sub r2,r11,#96
mov r3,#4
.Lj4094:
ldrb r0,[r2], #1
subs r3,r3,#1
strb r0,[r1], #1
bne .Lj4094
.stabn 68,0,386,.Ll1293 - STDCTRLS_TCUSTOMLABEL_$__PAINT
.Ll1293:
# [386] tr.Alignment := Self.Alignment;
ldr r0,[r11, #-44]
bl STDCTRLS_TCUSTOMLABEL_$__GETALIGNMENT$$TALIGNMENT
str r0,[r11, #-59]
.stabn 68,0,388,.Ll1294 - STDCTRLS_TCUSTOMLABEL_$__PAINT
.Ll1294:
# [388] Alignment := Self.Alignment;
ldr r0,[r11, #-44]
bl STDCTRLS_TCUSTOMLABEL_$__GETALIGNMENT$$TALIGNMENT
str r0,[r11, #-59]
.stabn 68,0,389,.Ll1295 - STDCTRLS_TCUSTOMLABEL_$__PAINT
.Ll1295:
# [389] WordBreak := wordWrap;
ldr r1,[r11, #-44]
sub r3,r11,#47
ldr r0,.Lj4105
add r0,r0,r1
mov r2,#1
.Lj4106:
ldrb r1,[r0], #1
subs r2,r2,#1
strb r1,[r3], #1
bne .Lj4106
.stabn 68,0,390,.Ll1296 - STDCTRLS_TCUSTOMLABEL_$__PAINT
.Ll1296:
# [390] SingleLine:= not WordWrap and not HasMultiLine;
ldr r0,[r11, #-44]
ldrb r0,[r0, #590]
cmp r0,#0
beq .Lj4109
b .Lj4108
.Lj4109:
ldr r0,[r11, #-44]
bl STDCTRLS_TCUSTOMLABEL_$__HASMULTILINE$$BOOLEAN
cmp r0,#0
beq .Lj4107
b .Lj4108
.Lj4107:
mov r0,#1
strb r0,[r11, #-51]
b .Lj4112
.Lj4108:
mov r0,#0
strb r0,[r11, #-51]
.Lj4112:
.stabn 68,0,391,.Ll1297 - STDCTRLS_TCUSTOMLABEL_$__PAINT
.Ll1297:
# [391] Clipping := True;
mov r0,#1
strb r0,[r11, #-50]
.stabn 68,0,392,.Ll1298 - STDCTRLS_TCUSTOMLABEL_$__PAINT
.Ll1298:
# [392] ShowPrefix := ShowAccelChar;
ldr r0,[r11, #-44]
bl STDCTRLS_TCUSTOMLABEL_$__GETSHOWACCELCHAR$$BOOLEAN
strb r0,[r11, #-48]
.stabn 68,0,393,.Ll1299 - STDCTRLS_TCUSTOMLABEL_$__PAINT
.Ll1299:
# [393] SystemFont:=false;
mov r0,#0
strb r0,[r11, #-45]
.stabn 68,0,395,.Ll1300 - STDCTRLS_TCUSTOMLABEL_$__PAINT
.Ll1300:
# [395] TextLeft := R.Left;
ldr r0,[r11, #-76]
str r0,[r11, #-80]
.stabn 68,0,396,.Ll1301 - STDCTRLS_TCUSTOMLABEL_$__PAINT
.Ll1301:
# [396] if layout = tlTop then begin
ldr r0,[r11, #-44]
ldr r0,[r0, #592]
cmp r0,#0
beq .Lj4123
b .Lj4124
.Lj4123:
.stabn 68,0,397,.Ll1302 - STDCTRLS_TCUSTOMLABEL_$__PAINT
.Ll1302:
# [397] TextTop := R.Top;
ldr r0,[r11, #-72]
str r0,[r11, #-84]
b .Lj4127
.Lj4124:
.stabn 68,0,399,.Ll1303 - STDCTRLS_TCUSTOMLABEL_$__PAINT
.Ll1303:
# [399] CalcSize(lTextWidth, lTextHeight);
sub r2,r11,#92
sub r1,r11,#88
ldr r0,[r11, #-44]
bl STDCTRLS_TCUSTOMLABEL_$__CALCSIZE$LONGINT$LONGINT
.stabn 68,0,400,.Ll1304 - STDCTRLS_TCUSTOMLABEL_$__PAINT
.Ll1304:
# [400] case Layout of
ldr r0,[r11, #-44]
ldr r1,[r0, #592]
cmp r1,#1
bcc .Lj4135
mov r0,r1
sub r1,r1,#1
cmp r0,#1
beq .Lj4136
mov r0,r1
sub r1,r1,#1
cmp r0,#1
beq .Lj4137
b .Lj4135
.Lj4136:
.stabn 68,0,401,.Ll1305 - STDCTRLS_TCUSTOMLABEL_$__PAINT
.Ll1305:
# [401] tlCenter: TextTop := (R.Bottom - R.Top - lTextHeight) div 2;
ldr r1,[r11, #-64]
ldr r0,[r11, #-72]
sub r0,r1,r0
ldr r1,[r11, #-92]
sub r1,r0,r1
mov r0,#2
bl fpc_div_longint
str r0,[r11, #-84]
b .Lj4134
.Lj4137:
.stabn 68,0,402,.Ll1306 - STDCTRLS_TCUSTOMLABEL_$__PAINT
.Ll1306:
# [402] tlBottom: TextTop := R.Bottom - R.Top - lTextHeight;
ldr r0,[r11, #-64]
ldr r1,[r11, #-72]
sub r1,r0,r1
ldr r0,[r11, #-92]
sub r0,r1,r0
str r0,[r11, #-84]
b .Lj4134
.Lj4135:
.Lj4134:
.Lj4127:
.stabn 68,0,406,.Ll1307 - STDCTRLS_TCUSTOMLABEL_$__PAINT
.Ll1307:
# [406] if not Enabled then begin
ldr r0,[r11, #-44]
ldr r1,[r11, #-44]
ldr r1,[r1]
ldr r4,[r1, #496]
mov r14,r15
mov r15,r4
cmp r0,#0
beq .Lj4146
b .Lj4147
.Lj4146:
.stabn 68,0,407,.Ll1308 - STDCTRLS_TCUSTOMLABEL_$__PAINT
.Ll1308:
# [407] Font.Color := clBtnHighlight;
ldr r4,[r5, #140]
mov r1,#-2147483628
mov r0,r4
bl GRAPHICS_TFONT_$__SETCOLOR$TGRAPHICSCOLOR
.stabn 68,0,408,.Ll1309 - STDCTRLS_TCUSTOMLABEL_$__PAINT
.Ll1309:
# [408] textRect(R, TextLeft + 1, TextTop + 1, Caption, TR);
mov r4,r5
sub r0,r11,#59
str r0,[r11, #-172]
sub r0,r11,#176
bl FPC_ANSISTR_DECR_REF
ldr r0,[r11, #-44]
bl CONTROLS_TCONTROL_$__GETTEXT$$TTRANSLATESTRING
str r0,[r11, #-176]
ldr r0,[r11, #-176]
str r0,[r11, #-168]
ldr r0,[r11, #-84]
add r3,r0,#1
ldr r0,[r11, #-80]
add r2,r0,#1
sub r1,r11,#76
mov r0,r4
mov r6,r4
ldr r6,[r6]
ldr r6,[r6, #444]
ldr r7,[r11, #-172]
str r7,[r13, #4]
ldr r7,[r11, #-168]
str r7,[r13]
mov r14,r15
mov r15,r6
.stabn 68,0,409,.Ll1310 - STDCTRLS_TCUSTOMLABEL_$__PAINT
.Ll1310:
# [409] Font.color := clBtnShadow;
ldr r4,[r5, #140]
mov r1,#-2147483632
mov r0,r4
bl GRAPHICS_TFONT_$__SETCOLOR$TGRAPHICSCOLOR
.Lj4147:
.stabn 68,0,411,.Ll1311 - STDCTRLS_TCUSTOMLABEL_$__PAINT
.Ll1311:
# [411] TextRect(R, TextLeft, TextTop, Caption, TR)
mov r4,r5
sub r0,r11,#59
str r0,[r11, #-172]
sub r0,r11,#176
bl FPC_ANSISTR_DECR_REF
ldr r0,[r11, #-44]
bl CONTROLS_TCONTROL_$__GETTEXT$$TTRANSLATESTRING
str r0,[r11, #-176]
ldr r0,[r11, #-176]
str r0,[r11, #-168]
ldr r3,[r11, #-84]
ldr r2,[r11, #-80]
sub r1,r11,#76
mov r0,r4
mov r6,r4
ldr r6,[r6]
ldr r6,[r6, #444]
ldr r7,[r11, #-172]
str r7,[r13, #4]
ldr r7,[r11, #-168]
str r7,[r13]
mov r14,r15
mov r15,r6
.Lj4040:
.stabn 68,0,352,.Ll1312 - STDCTRLS_TCUSTOMLABEL_$__PAINT
.Ll1312:
bl FPC_POPADDRSTACK
.stabn 68,0,413,.Ll1313 - STDCTRLS_TCUSTOMLABEL_$__PAINT
.Ll1313:
# [413] end;
sub r0,r11,#176
bl FPC_ANSISTR_DECR_REF
mov r0,#0
str r0,[r11, #-176]
.stabn 68,0,352,.Ll1314 - STDCTRLS_TCUSTOMLABEL_$__PAINT
.Ll1314:
ldr r0,[r11, #-152]
cmp r0,#0
beq .Lj4041
bl FPC_RERAISE
.Lj4041:
.stabn 68,0,413,.Ll1315 - STDCTRLS_TCUSTOMLABEL_$__PAINT
.Ll1315:
ldmea r11,{r4,r5,r6,r7,r11,r13,r15}
.Lj4105:
.long 590
.Lt233:
.stabn 192,0,0,STDCTRLS_TCUSTOMLABEL_$__PAINT-STDCTRLS_TCUSTOMLABEL_$__PAINT
.stabn 224,0,0,.Lt233-STDCTRLS_TCUSTOMLABEL_$__PAINT