.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